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(2) 

1 

(b) *¥*ftte«i»anfcaft^h^©iM5fcj;'3 

T*©-#©H«IH«Z*IBH<ill**JSrt"*XT-y^t^ 

«6©»Bfc±D*BB«M«U *olWBB«»*tt 10 

B«*ffl***^*B«ffl*JMte^^ 

[0 0 0 1] 

[0 0 0 2] 

i»-r simo* < tafa¥ s » s nr v> a 

(Takanori Okoshi <3M^W) IF: Three-Dimensional 
Imaging Techniques CE#C7C@ife^J&Sfll) , Academ 30 
ic Press, New York, 1976; :B<fctfG. LippmanS: 
"E'preuves re' versibles. Photographies integrale 
s, " Coinptes Rendus> 146 » 446-451 , March 2 > 190 
8 ft#JB) . >f>^y^9WBt*5fflBH:» 

shika *^^tUTR*anT^5Nimslo*^^#«» 



»B¥7-2 10 6 8 6 

2 

[0 0 0 3] ^>7^*a?-«*«HW*#¥tt# 
ftteOkoshi K«fct)Tifi^6nT^*. BrS©*' 

=l-)\s (mmu>x) \z mm-? zvyj-^*^ 

[0 0 0 4] cn6©tfa-©#*^6»*tLTft6 
^©^^^U>X<hf^U^/SEK©k 

>Xft»«u&3i#m;fbBfcAn&n*. entity 
\mm<n&5\z. m%fTt>ti&mthtmttiv>m\zWjfa 

-f^A*ftB«oT»!riftifci>»-r*»ic**.*. is 

3B*»*«HB**7>f;i/Ay-KcB36^n*^6, 
2ine©*»^63l*#tfSnfcHB©fiB'b'*&3l# 
«LB©^f -if ;PG>+*fcB IsTX&Hfalzmtrr** 

a ft* $ -GWVtf y tty9 h 6 ASM fctt.U 

-f-if;KD±KB^n«. ^—V)l±<DZ<Dy-b<D& 
Bttt'&OHBO^-f-^H^COTIf^^-y©* 
i>fc***T!B*3n. *bT3l#«b^>X*6i»K 
*nT^SBB©Baitt^*i6©U>T->f : * 1 3.-;pftji 
bT«3KSL»±fcff:b*l-5. «X*>£, 3i*fftonfcB 

ffl35^6ff&nfc*»H«3»t7^jvAy-McB^n, c 
©7*>^7-^©fiB^n*n©t!3.--fiTif>^ 
^-i;©*fficfi*&* , r«K^-if;v±T?siiBs 
*u *bT3i<*tfi/U>x*6a»anT^*if«oji 
j»Bffl««fftons, mijfa<D&jim\z%&nz>$:T<DV 

zL-f)mWzLXUyv-4^r^y- • ^yAT-yty- 
»BLTS«"r*2:i3»«"C*S. feb3l#«bl^>XcD 
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3 

&B»©fi^x h u y :/a*Btf«gffl©b>x>r 

T" * * 7 -^Sf 4ft* W >X& Z>Wt&U>^J*rzL 
-^6*IRO»aofcft«©Ka-**"r*. ft^g 

&tttt©A- H 3 < Tttfc 6 

-©*« a- h 3 v-mfc<Dm»&mft*mz.T\tte 

W,\ NiBslo^U>hT?tt, ftU>X©»«Obra-© 
Wi4fflicRS*nT*0, *©!*!©2<@f4£©j8ffiPi 
tfn- B0©2«tt:&©»»Bb:a-t»ASft&. 

[0 0 0 6] %¥ttM&B&tt£fc. 1 9 6 0*£i 
19 7 O^fcKEastman Kodak 4fcOW3E#tttff*»K 

£^r£<<Dmm-c%mm'$n, £fci 9 6 9^©«'\ 
^©yu>httfti^>x*Kaaiao»D* 

3.-*«ST?*, l**tttt-5*K»*»"C*ofc 0 £© 

E«^6nB»«fc»*fflan-6©-c "mar 

»(■ * *lfc-^6U:©B«*3*»fc» 6 *T«l 6 © 

fcB«*7U > FT* <k3fc:/»J >*-*i«(rr*;fc» 
fcttfen*. £©*fr«fl«±j^tt*Bttff5 , 113 

, 213 #<L#Hffll^-8##No.885, 699 (Kodak Dk 
t. 64 , 374 ) ifUoTM$n^. 
[0 0 0 7] 

[«W^ilHfcUJ:3tr-&llB] ±E©#ft©-o©fSI 



(3) #BI¥7-2 1 0 6 8 6 

**. bfrb&a«S* »*S»;:Hirr*HB©fca&lc 

a«©»Btt-cttaaTr&^. jk#i;ne«fcB«**j8 

t-*fc»©:/ci-feXKOl>T»i, *@di®07/722,713 

*«cE»3*vo>*. btf>b&a*S;i©¥tttt, **5c 

«»3Wf t>nr ^ * t £ ©**tc«b t m&¥mfc<Dm 
mmznft^t^ommr* ««©*bb«*£j«t 
[0008] ±iB>/X7 L A©s-©pgis«, stwsn* 

[0 0 0 9] &Bi3n*©tt* **0BB¥»ft*& 

aa-c*iBi«©fl«j&«6 vifc^ ^ <fc 5 fc-*t©its?3 

[00 10] 

20 «B&J*&r*fc&©¥RKtffNB] *5MBtt. as 
[0 0 11] *58H©tt©BM»4* -J*©*^*** 

[0012] *BBtt£fc. ttB3nfcBB©ax*tt 

B^sctsBttt-r*. 

[0 0 13] fcSfc* -B©«fF"ClI*© 

[0014] *bb». -o©*fr#B«ft*«'rsfc 

»lc«ton**»©+BB«ft**r*fc»R:-»©x 

x u^mmrmmm^fr^ zt\z&r> t±e© § w 

£3§/£T£* JlCillWtfPttllftBtBBBwaUE^^ 
MM»©IWl*£tt. »*»«©*BB«K^^T©W 

-o©®®m©^tt©s^^*¥*[RitcfHft-r 

^^t^#Oo eC^tlt i/XfA^ igmMtc¥^ 
ftte<kaa«©BB*»*i»Bi*'f*fcBWfte*B« 

4» ftSB*(RifcBwr5-jB«aa»»cBi»r«©*ni« 

[0 0 15] ft»cW6^fc«:*«©B»^>3pJjait*»CC: 

^#t^t»^©»aB©+tc^^nT^i3, ^^*xs© 

[0 0 16] 

[^JSW] *58Wtt, U>7--f*3.^-B«**Vitt;t 
UT-Bfct^ofciftffSBft^flfert-CSSAiC-W 
5^ ©X^U*B«fc»bT*»©*BBBS»«CtS« 
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5 

fx UTtwiB«***'r-B=i>tra-^-i 4K«»a 
i6tc4A^n^o £©«ft««i4* 

• 7x-X ^U- h tfctt/^J 7-X h U 7 ^ • 7i- 

[0017] *&3e*flS»cE«anfcB«©*s-»© 

Ktf:x-lc#jfrr*B* (fMSS) ^^Xf^« 

*&»«*r*£ifeasn*. fBBfttffflHE?* 

£tc<fcD, *&jfefe-:3©S*©**50*Bfc— 

C©^^ h^«ttHRK**»nt*tfn* (Robo 
t Vision, B.K.P. Horn , The MIT Press , 1991) . 3K 

***n^^h;v*z>**S3»«-tfn©*((:aiiB 

[0 0 18] *[TOfi2 2<Z>iISjS2 0 (EJ4 3£|» 

*2 0*1^^^ h;l^*SV»»4*2 8ftffl^TlHfc2 
1^2 4, 2 6 ±0>l8r#jS»4, X^h^*0<ft0 
-^7Cffi«3 0, 3 2©*&Dfc#tt»|;: 
«oT*mH*2 0O«&tira'rSJ:i:WT*S. 



(4) *$&I¥7-2 1 0 6 8 6 

7cr©2H«B©»lKI4-*0**»&ft^*6, 8* 

tit***. s^tc, *3»«-a'ca^<!>T«niH»2 2o 

[0 0 19] X5r^*H«3JWai-*fc*K:»J6S«iC 

£fc*©»t43i:@T£*o P§-©»^tt, B*W«-C*» 
i0 6WSnfcKa-*ft^lttO*¥*l(lO«ttT* 
g43(c&5<fc5 &n^c5EB«©BB©ffcb 0 (c, 

-*7C«B««ffton*. LfcailW 
S^tinU *BBK:J:oTj|RfeSn«BBM:J:0ffn 

[0 0 2 0] -^OXf^tlft (— ^©3/->*«a 

*»jsw>sb«l&b» #**&nntf, *bb« 

(ifKo^©*BajSt*6«»sn&B» ©Mittjl 

a? *BB«s^>^-u-x-r<5c;ti3j:DB«sn*fc 
*BB«siwrr*fc«2>fctt, 

Bfflassai/T*BB«ftlMllib&<Ttta:e»:^. 

->*B*©asw*i4*m swift. *±tH*fr*« 

B#«*¥«taK[|fci:«*tr^->¥Bi:HBW*J:3 
*^9»4*¥«lt*»«ltsa«>'->¥Bfc:Wflc« 

Xo^jSfttSJSo+Bx^X/^UT-^ -"WMMB 

[0 0 2 1] VjrFiZWi?%&5\Z£<Dmm%M9t?Z>tz. 
»K\ »-5X'rW*B«»S»fi6'rs-tLT-'3©*^ 
9T«W*nfc5/->©«oB«o*»«ttBJi«o 

;i>f»4, «»an&B«©±©yyy fo&ct *s 
#£nfc, B*tbT»6n«B^©B*«fc«'rjR 

So fljftti Titg^ft, X^hW>FRi , • • 
Rb #6***5^ 3>^B«5 0 (04 5^0 
M) #4A6tU £ft«UltL Tffi^^n, X^h* 
n>FLi , • * Lb ^sasfex-r^ji/Bfts 

50 2 6ft* A*>FDi , • • Db 
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(5) 

7 

tt&i)m%.tsns4, *LT»o*©+iBaj«ti , • 
(Ui , vi ) , • • • , (Uk > v k ) fiwmznz 

5 6*±tf5 8. *n*>S#/t>Fb=l, " • • * B 

rtic s&ft+Bajfttk > k = i, • • > K^r<h 

n5 6 0. ««K»B«/1> F rtfcjlff SHU/^O F 
Do tt % *fr*B«fc*l^*£»fc > f , BB*/t>Fi i0 
b.i , • • lb. i Z^Of-U-XTZZtlZkr) 
«^SnS6 2. ftk = l, • • klCBUT^IWa 

(Uk , Vk ) siMis , r**attB4 6icH*snT* 
570, ; 2) wcmm 

£H9jgL&IH'S7 2-8 2 ; 3) fflr>fX/VJf 

^l^;V^©*IWx^X/Vj^ * ^9 h;i«©$0MW 

§8 4 ; 4) feotfeHB^V^ftflEl/^fcar**-? 
Xf7^2) tXfy^3) 
[0 0 2 2] ««tf»*V^©B«fcff«tt, 

[0023] »&u^)vmtusamo^u^)v^^ * 
Bf^ x/iu x^ • hJWB©*»©affmBfcB , r 

x>r x/tu x^ • 19 F;va©*»©£frw«fcBT& 
(D^momnwmt, fe&aBBcB-r**!*:. fee 

©B»OHRSIHB»B*i:K:J:oT36«sn*. 

7^;i/^-©aBfl»B*fcfe*©B«©ft/t>H* 

[0 0 2 4] &9Luum*&sam (*®<D&%$m\z 

fiOBBt^nsOffiBBWBfti+W^X/xij^-f 

[0025] it©*Mi^^-c» 7>r;^u>y* a? 



#■¥7-2 10 686 

tlfc* BB©/t > F 1 7 y U > n&£iS»© A 

> F©fiBfflBB*t JP* U >y*nfc£HB©* 

> F <h y 4 )V9 »J n&£BB®/1> F©2B<fl» 
HS^It 1MXN* xM* ©H«WB±©jftQ' ©H 

-yuyF±T3e«an*. buhhmie^j^ 

f-f^'Jr-f "^F;M§fc> iMXNxM©B*¥ 
®±©&Q©^U v F±T£8£n5 (&T©B«T? 

B«tttT»*X*u . ^©»BBW^T?5iSC 

% : *«»fi©7^;^-t*S»S©B«A>Fi:S 
Jt«-r-6fi-^>xy^XgeGK:BbT, fFffi&©£© 

y >y*nfcBB/t> F£»<ffi&©£©7^ 

* U >^«*l&BByt> F l/C^U y FQ 

fcBf*3e*«nBftgi tBrt'T*. 

^U>^Snfc*BB/X>F*»fifca6fc, 
US^©lS«¥ffi^©, ajftti *6*6tifcB««© 
BaBa9SWC»*B«A©yUyFQi £#£5o a 

u «j&tk ^&B«¥B±^©«©aaBnsKa^ 

uyFjftQT*-5. *n^67><;^u>y*n&*B 
ajW6B£tiT^$j&©^y v fq* ^sjaoyu^F 
qr K-to^Y^u^^atifc^Basam-rs. h 

B««©7-<;l/^U>ysn&ftB«/1>F 

j^ftjean*. BajftoyuvFQi *%%tz#>\z. 9 

■JyHQ^IiM, ^'Jv FjttTrfiB^n&B 
flraotBx^X/tUx^^FJl'©* (ti -t 

k ) / (ti -U ) K±oT««)6n4a«c*b^« 

yUy-FO©*B«Att» *©yU-yFjanr.3£«4 
k - tt ) / (ti - ti ) fc±oTfc»&tt6«fc» 

u^a«»^7Fsn*. 

[0 0 2 6] »S»ffi©7-f;^-t**»Jg©BBA 
^FtSSSTSft-f^y^XgeGcrtC, Wffi^ 

©7^;^u>yan&*B«©, h-t (t R -tk ) 

/ (t. - ti ) fc±oT*»sn*2BB*B»fc» 

«a©7Y^u>ysnfc£Ba©, (tk - 1 
l ) / (ti - ti ) te±oT*»&n*2mM»B* 

t©, jf'Jy FQ±T?S«**lfc©«-tl/T, Ox^y 
^XgCWKTS+Bx-fX/^Ux^ -^^h;W©SfT 
M©«^u KBT£#^*W&gt ©Smii«B» 

gi.ft»*«, B««©7-f^u>yaftfe*Ba 

/t>F©SBflBBK«a«ft»K:. 

©B«¥B^©» a^t R ^6«&nA:BBa©BaB 

WaKTSSBBjft^yjyFDi ^*i*5o fib, a 

ja t k frzm»¥m±^<D*e>mwmm&mt9v y f 
jSqt$^ *n^67^;^u>y*n&*B«©a 

Bfl*Bft*«fiBanT^-5j«©y'J y FQ* ^6j«© 

yuyHQi fc:*©7^;^u>yan«:*B«©fflW 
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8®W8S*?&5iI«jfc©^y y HQt fi 
•©aBMHMR^ftttSnT^-BjaoyUy HQ' tf> 

v&mmmM&zmmtZo BBjft©yy*FQi 

Sfc&t;:, ^'Jy FQ©*B*jfttt» -toyUyFAT 
fc^nfclWa^+B?* X/^JtV • ^ h)V<0. 
@^ (tt -tk ) / (tt -tt ) KJ;oTflW>6*l 

;p©, h^ 1 (tk - t L ) / (tt - ti ) tc<fcorft 

»6n*«(C«bli*«»^7h*n45. 

[0 0 2 7] *s»eo7^;^«-fc»5»*a>Hi«/t 

>F£**ftfers4H>5^*XgeG2:£fc, 
«/OHcDB«ffig*oSit^tcB8-r^, (tt 

-tk ) / (ti -t L ) fc±oTfc*&n*aB«» 

3, (tk -ti ) / (tt - tL ) fcioT** 

6n§srasinat^ ^yyFQ±Trs«sftfc£ 
gt ©gBBVflftgt.&jgjfr*-*. wm'&vy-ov? 
b«tb^©. a^tR ^engn^mmosfiisn 

i!l«T**H«jft©yUyHQi fib, £A 

Qt*5 fl ^n^S7-f;^u>4fa?n&*iii«©ia« 

Sjft©^yyFQ' *>&jft©yUy FGt \Z*V>y<<)\> 

aB<M»B*£»B-r*. twfi«©7^*Mj>if3ft 

fc£iI&/\*> FOBMBXOSEd^fcB-f &2B4I 
•B**»*fca6Jc, 3/->©*©*!«j«©B« a raK 

•¥H±'vo-to»aBS5«Wttyu y haq-c**. 
6 7 * )V9 U >y S*i&3feB«OB«JK«*©* 

**»icwr-5aB«*B»#«s«*nT^4jistoyy 

y HQ' ^6jft©4fUy FQl ft:*©?* ;W»J 
nfc£Btt©BftiB«a>SlBjS^K:B a r«SBB«B 
fcSHBf*. ItfiO^UyHQi 



(6) &B§¥7-2 1 0 68 6 

fliftiO^Wx-f X/tUx^ -^MKD, (ti - 
t k ) / (ti - tL ) KJcoTftft&nSfclC^b^ 

(C, y U * FO©*H«j»tt, *©^y y FjfifC«B* 

nfcfFffi^©*rax^x/tyx^ -^hp©, 

(tk - ti ) / (tt - tL ) KioTttA&nafl! 

[0028] j§»yy * FQ®ft#a#yy * F&tt, 

B«¥ffl±TaftS 8*lRjft»3er* 8B©«E»J*C 
10 BSftT^*, *»fJ v FQOft«*ja^BbTtt, 

8#ft©&^©-:3£ffi5rr&, B«¥H±©— 
©^ h^©ft&s»ffc*fcm>6n*. ®«¥M± 

©*S»Jfc©#|fiJ*»jr*S, «-&SO«f»©^MUs 
©*3©*5©t;:HbT, ^Kr^x/tUr^ -^h;M§ 

iS«i:bT^rax>f X/t'Jf-r • ^ h;MB©SfrIME 
a? ©W**¥lK»u©&«)©3&|fi|¥ilMbBft (s, Vu) 

ztem-z* z<Djjfa¥m&m& (s. vu) a. «» 

It^'Jo/FQ, ©f^T©^'J y FAtt*»^y y F 

»yy * FQ©»#iJ-:/yyyFQ. ±-e^8$n^« 

Je»*^'J!yFQ. ©#yy y Fjfi»C*^T, £©# 

iav»ftB» (s, vu) ^©^y^Fjii©*ias 

iS»©*iS«j«fc45tf S^Bx^ ^/ty • hjv 
»©affff*li©*¥J*»u©fltic©yy y H^ic^tt 
§tWr>fX^Uf^ • ^ h^»©afflWB©*¥rt 
■a? . »u-©«t©»c*bW - - 

[0 0 2 9] tBx^X^yx-f -^hJMI©**© 
SfflMIK:BT*afic#aw*BSCtt. ^>ry«g 

FKBt-**«linB*gi **tW-©aiBB»B»g 

t . . g . §ia«^fR) s e S KB-rs»«l¥»ftB* 

(s. vu) t* n»* un. mx* ^nt^tzm^ 
&-&\zm&£t)#z>z.t\z£^T&&2nz>o 

[0 0 3 0] *S^t» A*6»aS*n*^/1>FRi , 

&twan*o/t>FLi , • • Lb t^u^f 
Y^;PB«t*#A*t» ^ftga^tk -e^^nfc^ 

Ht^X/^'Jt^ (Uk , Vk ) ©IfffilC 

s^^r, Kf>B«^t k ^saijan^o/t^F 
ii.k , • • • ib.i ^sas+Bx^y^HAsw 

<ffi-r^^Stt, *©i:o(ciJiWT^^o ftB«/t>Fb 

= i, • • BZt\z. ^raf>f^i«A>H[ 
b.k ©pwtt, *5r-<^ i n,B«/t>p*6^Banfc 

(tk - tt ) / (ti - tt ) lC<fco-Ofe£5ff 
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(7) 

11 

-tk ) / (ti -tt ) \Z£^T&i&2>Wmt<Dftt 
Z>7ttb\z, ~>->ft©i*a£©M&¥®^©* a^ti 
yFQi&*tt*. {&U S^tt j&>6B»¥ffi-b^© 

©^U y FQ« tC*©£x>< 5>*»B«/1> F^aBI" 

»««©aaHW!w-c»*Mja«)yu ? fq l 

jWfcB*ftT^*jft©yUsrFQ" *6jftt©^Uy HQ 

'Jf>f -^h^©, H?(ti-tk)/(ti-t 

7^/tUf>f • ^£ h^©, (t k - ti ) / 
(ti - ti ) fcJ:oT*»&ft*afc#w>«jKtt$' 

[0 0 3 1] *«WO«*»*K:o^T©S6K+»a 

[0 0 3 2] HTORWPtt, J:9HRtt&:BR#i** 
£*x, «Eft©-ttWBE3n*. fijftti ftt&SBS 

n^n>FRi , • ■ • rb *s&*±e©#7^ s> 

•Lb #Sfc*±E©£7V 

£Hf»W&£ (x, y, t) , gesfcioTfcSn 

aattk = i < • • - , K(riiLTtt> iraaAt 

(Uk , Vk ) tt, TEK:*V^T»««aUE^ir NHS 

fF^ffi 1 K,koTiK3*lS. XfktMOS 

{ti , t L } tt, HTJC*l5TajftiW 2 

[0033] &zmm&to<D&&ftz®&i<nft^A 

X5'->©Ba£*nS©ffiW«*BR£:&«9*'5, 40 

*aictt*aT*ft^. cn&©BB«Enw* 
ftftic, anBattHRHftfci/Tatrtu s^ne 
<Dmmwmz-&ffimm&k trains, ^n^©- 

**H&tt, BRKaOTffi&flft©ft£©*SSft*& 

±T£g3n£, £©»#a£#>&©BftK M &£m 

■*©4te©»«»»±©fflJBH«fcBaf#tf6nT^^ 50 



4$B8¥7-2 1 068 6 

12 

*HRBft©#S*Stf LTrWioB««W(A 
$ns. Jift6©r*B«ttBIIfc«»lI«T*0, - 
tl£©<I#ii&tt, ^©4#3£©l6X»K©li»«2:liaft 

tt&©«fc5lcRW"rt?*. 
[0 0 3 4] ^fS©a^teR (C^TRtt-^TC^- 

^ u y fsbt**) fcBTs*jMBa**MW"*-o 

©#£tt, ^->rt©*«C±oTE»S*l**fc 1 

tflftfftsr^csa-jruy ksbr 1 

U -tnfr&BaVBR 1 rt©&£ (x, y) ©ffSfit 
€ (x, y, t) &mitZ>Zt\Z&?XfiOo ±!2© 
*5IO£«Sft&BR€ (x, y, t) tt"ffg®«Bi 
» M tPfttn^o A <x, y) e R 2 ta^teR^K 
:m**ftftB&Bft©aE (x, y, t) liS«$n4 

$/->rt©-t©jft©J»»c*Jt«-r*i:fi36anT^ 

&o untt, T^T© (x, y) eR 2 WcTOte 
RKBLTajStK*H-5C5^5ja <x, y) \Z®& 
t5o S^S^SH^Hae (x, y, t) , (x, 
y, t) eR 3 ilTR 8 tt=&5E:i-£Uy FffilH 
T&£) tt, B«»J«yn-fe^©TE©HBS»lSS* 
SilthlciO iT&toS. ^->*BWLT^*3«»© 

fen**** h**»B*itWbS**J:iK:±o» 

[0 0 3 5] &jfc£DS«W&€ (x, y, t) tt, R 3 
rt©LebesgueaiSdx dy dtlcBl/TJ»BfWfc«»^rinr 

so, *ttv>tz#>\z. ajxftag&»firtegm$ (r 
3 ) ±T£«^n«»RB»nBRri (hkhk) t 

»J*"r*&»lC«5C:t3Qftffl*«. C©^ffl^ (R 3 ) 

■tift&R'-ftonww Ki»*«rr*-r^r©*RJc 
«»^riBa:B**6as. cntt, «»*-&s#©n« 

lc*»jftrttBR*^*o©»b^J:5tt*J|LBBiMpl 
^S* eR 3 3»t«Bft» (R' ) ^ttcSftfSi: 
^5Ct*ai*l/T^'5 0 QfflQ (R 3 ) ©&4§ttfeS 
-36©#y;PAl)lfcJ:r3T3eBSn*. (R s ) 

^6©Mfc*tt "ttJtB*" ^P?«n^o «i«H»<f>e 
O (R 3 ) fc*»*»§W«B»£rcB«ftW-6lifc-- 
iSBiar { ©ffltt^©H«: 3 (C<fc-oT5£g$ 

(x, y, t) \zmmmt 
znizH&m&r * tt, m — 4 — t--^^ns. 
z z-?&mzmmz-?z>Tz&b\z, &^t\zz5^?wm 

B«Mfc©&»©*Etfe©-«tUT©*©a«fcln^ 
T»«f«g©liBBttBK£ (x, y, t) tcHS^H' 

[0 0 3 6] Br£©fijAt ER(c«(t«flBBB««A 
T^ffi©^rStt, M0aBBRftlcJ:?T»dn«fflKX 

- > ic « » «*«fe«ft)Wa A t c S <k -5 ft, 

"!»sw5" tmtnz>& — 5 — vms 
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®& — 6 — \zmo%Tz>ct\z<k~DTf7t>n% 0 ft 
wu&om& — 7 — bsbr' ommm&r&zt 

&;? (x„ , yu , w ) » u mmmm m tmtn 

5„ gfc£#&®8tB&7) (x* , yp , U ) , (x 
V&ttSflli? (x«, y. . w)*«osrc*#«: 

£KR 3 ©S»I&OP>(TO 4 ^ ;/ : H*5c®^t- 

[0 0 3 7] m^MO "Bore! 88#*<& w ©ft 8— 

#Hl£©®/h©aW|g- olBIttiS©y>^-*ta«ft» 
^n^. jti (B ) «*£M©Borel SB#££©EiB±T 

1$®Pl«HSC7? (X a , Ya, ta) , (x* , y w , 

©i*®ii«gis:«, mitoamm.jmm&m* (R 3 ) 

t-*fc»fc«5;ii:#tti*S. #5£MS<f>e<D (R 3 ) 

©<I«:*©B«: 9 l;:,fcoT-M.&n$. 

«tMtB*Hftf} (x,. ta) icBWW&n 

fc-iKiS&r, ft — 10 — tc->M:£nSo " 

£>©^E&©-8&£ LT©*0^fctt*T*S*Me© 
»«BftHft?7 (xa , y g , ta ) KBaWtfcnfc 

HRB*r, *»rr*-f >^y^x (mew ©&tu 
[0 0 3 8] H0rnasff»ttffisn« (r 3 ) ±t?« 

B3n*HBB*Frt*#*.&*U ATf&^WkOftfcm 
. , m, > m, ^^.^n^t, -«H»F(D "Hft<§ 

&B&" 11 tfc aTOt*0»Bf»flS«»tt 

ffl£M<J> (R 3 ) ±Tf«««nSHRB* — 12 — t 

fc£o ^SgBS<f>e<D (R3 ) \Z&ttZ>-®m& 12 

©«HU tfc£Bl& 13 fc*l**-«B*Fa 

[0 0 3 9] ttflBBpUMT tt, MEBft 

sn^o — 14 — tt^«£ft®ft£?»*&u g 

(A) HJft^AfcftBLfc-fV^y^XTftStf*. 

*-ur — 15 — ttejs©ft^A«c»*Err*ftT?avi* 
«i*>s, u^si^a 

iMffiSK<P (R 3 ) ±*cti$nf:-i»r 

£A tf-««IHB«B*r 

> tt, 16 t^SBWfcJ^T-M.&i'U * 



(8) 4$&8¥7-2 1 0 6 8 6 

jRfljnaftBKr.c* > © -wr t»tfn*. 

nftr.(A) a, — 17 — t^5*ic-»flssn*. 

[0 0 4 0] TE^ A A "T^T© 

i0 fctt* E^r g( A > , AeAWftbOICE^ 

[0 0 4 1] "HfcBR" fc»tfh*lJrS©B£l*«B 

& — 18 — #£3Ef ££{££T£o (b&bkv©b 
) gectn. . 

BftMG 19 ©T^T©& (x, y) (£5^5 

s& — 20 — <D-r^x<omt\zmiyX, (x, 

£ 21 ©<Ite, «b£BS 22 , 23 

20 ±©ffi*£=bi*HKMJM#M&r, ®mm 24 

irLTft^n^o «E£ffl¥K:"rsfc»fc:E*§8 tt» 
B*©]*^©^*©^ >x V 9 X t UT©Sf!l(CjnA 
T, tt*ft«afC#Jt^SH«OI«»fc«-rs*E 

25 — omzmin* t^oCt iz&m-?z> Z to 

[0 0 4 2] M£ 26 *6©1"^T©«r»e*<ta 

»CMbTB« (2-4 ) lCJ:oT»«Sn**fiH* 

27 ±Olft*'&t>'a:HR««IH«H*r. 

28 1 L T jg£ Q X T ± Xfem S tlfc 29- 

-zm^tz®^^? h)imm& — 30 — (z.zxm 

30 #OXT(4*6T±C!)ft§.Q0Mf'>7>l&*t) 

T*6<Djft (x, y, t) tt «jaasftl«j«" tPf 

[0 0 4 3] i&^SM 31 K#JSU t 

32 — ©fiiaSlSD — 33 — Mtflrr*. "T^T 

©IS^Sfcffl 34 K*t«U ^oBffiSAteT* 

^ll^nfcli* 35 ©m^D 36 

40 [0044] usinMefbBftBft — 37 — ©#js 

5> 38 tt, &B«QXTrt©^fc-BiC:5TfiilH 

(ca^Wtg-C^oT, 3ESx, y, t fcBr*-t©«» 

Bfcii* Bft (2-4) \z^xm%^n^>mmm — 

39 ©8&&3&X, y, t fcBTSBWBfci©**^ 

tf, »**aA«fcB«B*"^40 — ©^lPiii^ffi 

& 41 — ©J*» — 42 ti, "T^T© — 43 — 

fcBl/t, «ttflft 44 ±©B*-&to*HB«« 

®«§i»r 8 ®bb — 45 — tbr^A^ns. ^- 

50 X 46 
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(9) 



7-210686 



15 



16 



47 Wot, (x, y, t) , V T (x, * 

y. t) tt&ftx. ylcBT5HRV (x, y, t) <D 



[0 0 4 5] 48 £aaUfc3f@<Z>m& (JICIT* 

Ua (x, y, t, At', At + ) 

= (x (t +A f ) -x (t 

Va (x, y, t , At" , A t + ) 

= (y (t +A f ) -y (t 



Af <hAf \ZiE<D&&m#T?&Z) &1t 

49 £SAt-Af frt>WL*>niti/->to<D&Z>& 

(DlBe&r&ZtL-Jj, 50 \$&& t - A t + * 

-A f ) ) / (A t" +A f ) 
(2-7 ) 

-At'))/ (At" +A f ) 
(2-8 ) 



x = (At" x (t+Af ) + Af x (t-Af ))/ (Af 



) 



y= (Af y (t+Af ) + Af y (t-Af ))/ (Af 



) 



fcioTJBBSns^ h)l (Ua (x, y, t, At 
, A f ) , Va (x, y, t, Af.At')) 
tt, Mt+At + i:Mt-Af *6©S/->«» 
K*^<jil — 51 — t«A t eRk:*«-* 

© "^aa^* wi/' tpftfns. wi, (u 

a. (x, y, t, A f , A t + ) , Va (x, y, 

t, a t- , a t + ) } «jftt +a t + 

Sl£R 2 ^^(DCin^CO^ (x, y) fc*^T©««l 
•V$Z> 0 OV^HflkjftOftSDIiG^Q (t. A 
f, Af) fc^-sT***!*. 

[0 0 4 6] ST, & 52 fcjfit 53 KSM" 

"WWaa^^ h^" {ui (x, y, 
t) , vi (x, y. t) } ^iLJco. Af, A 
t+\tJE0ft&M&TZ#>Ztls+ *&W (x, y, t, 

Af , Af ) 54 0»£fc¥«aut^ h 

)V {Ua (X, y, t, A f , A f ) , Va (x, 
y, t. Af , At + ) } ft*B¥-S«£K:»l, 

■rs. -en^eT^TOiEoajaiB^A t<a t ccc; 

Tfit teIE<D£t»£g:) tCPLT, (x, y, 

t, At) HJM 55 *6£«3n-3k H£W 

(x, y, t) »Hfll 56 3&>5j£«3n*. 

TIB^ 57 teft^W (x, y, t, At) CO&ffi 

Hfl W (x, y, t) teftZt^TO 

(x, y, t) 6R' fc||UT*-7E*fcT**fcfi£ 
LT^*. ft£W (x, y, t) S 

SI£Tfc^«£, A (x. y, t) £^tr££R 3 085 
#*£Ktt?n fc» L ViLebesgueSJS^S^ <h ^ 5 C i $ 
*ftl,TH*. (x, y, t) #*-7G*»&tto 

T^SiSfc-r^TOjfit (x, y, t) GR3 icHL, 
T» *©5cttWBUi«^* (ui (x, y, t) , 
vi (x, y, t) } 0«tiLT»J;S*U *5T&^ 
«-&tt-tfn^ WI/jWSfffl&K^ HI/ tu , (x, 
y, t) , Vj (x, y f t) } (OmtLXMIR^n 



20 



30 



+ A f 
(2-9 ) 
+ A f 
(2-10) 

[0 0 4 7] MS 58 ttR 3 rtCDLebesguejWSdx 

dy dtKBLTJWffttfc«#^ttT*D* ££*n« 

\z. mmfhmimimQm® (r 3 ) ±T£gsn£ 
amwuNkui , vi (hbbw 

fc*5:i£#«T**. e<j> (r 8 ) (cfctt* 

-j&Bi&U, , V, OHU^tiomi: — 59 

60 l:J:oT4A^n5, (x, y) £Q*S 

<Z>HKj& tST3^6<oajft, a£ 61 

******** A (x. y) fcaAt£fc*tt*l« 

*«afta*itrr*Hll© WV" 62 tt 

^C0gi^ 63 

64 femZtlZ, £Z~CV\*$k&® (R s ) 

65 ommf&ft 66 — \tm»& U, y) 

5iT&oT, ^n*tc — 67 — t«sn-*, 

^ hJPtt 68 tmZftZ. «A t ETtMI 

oe[L oo) iicftjjrraa*'^ — 69 — 

feis* — 70 — 0 "sa^? ww ti^an^o t 
^T©B«Mff6[i, oo) t3j#«b*oHjeastt € 
T^^^T^enrcrt — 71 — <z>&&^ h;w- 
-72 — om* o — 73 — \z, ®& t (r^^T^en 
ftwm&mm — 74 — <d u mx&x&'W h)v® n t 
40 wan*. — 75 — ft*sajiS[ni«T^6©«nBitaD 

[0 0 4 8] *5-T*ilMBWIBttTE©J;5teje3tft 
T#So M ttXft«AIEftHttM w i:P?«n^, a*- 

-76 — tc V s TBi s ntz.mtwm^m — 77 — t 
a^ t t*$xx, a^ t fc»^Tit6»afctt«»iB« 

78 <0t&£&3&&^ 79 CDfWT 

fc^lft^S:^^ 80 

[0 0 4 9] I6£SSS^ hJP® 81 ^Oi^ 

5z? ±^0ft4**s/->rto«fci4«*«ajflaBftH«w 
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— 82 — K£Bfc3n*ttn£t>, -Mason©!!*** 

[0 0 5 0] *n#S*BH©#tttt. 8f£<Z)l&£»« 

t0 0 5 1] 83 ft, ^WHTrtlcaoTiMO 

h ;i« 85 (DWffi 86 ft nXftfiAXftfl 

«^rj 87 aHft£LT*ft*mflft^OT£. 

[0 0 5 2] TEfcfc^T. ttMKt*'** HM§ 

88 ©fftffi 89 14, -3^0SKJftSIJ£f£Sl^ 

[0 0 5 3] 1. MfcSn* 
J&flHWftSWTViS'bOfr*. £tt»** 5/— 

[0 0 5 4] 2. S/->rt©#«Hjil©llflH4l«Lamber 

tiart**£:fijrr*. -n^> mmz\mm&m^ 

[0 0 5 5] 3. Ua-ME^ftJcSfc, ^MtGR 
fc*tt*H*¥MR a l*9<Z>&£ (x, y) OMRS 

(x, y, t) , feSft fljftt^^mVffiA 
©& (x, y) fc«»UT^*->->rt©j«©»«fcK 
Jfc«U *©tt«je*ttttB (x, y) &flAta:»« 
■«T?**iV>'5 2:fc*(B£bT^*. 

[0 0 5 6] 4. ^-Mi^awa»«*6T*T^* 

t«JEbTlf»a. «r«£ 91 ftg«T££&<DS 

Pt^a® 90 ft#ttftA 91 {CfflO^T 

rn6CD*#(0Jt©tt«ft«l/T* 
0, «*©ffiWMi6»fctt«H«-c**t^5Ctftfi 

[0057] 5. 5/->i*io«ft©a»AoaaEtt» - 



(10) OTW7-2 1 0 6 8 6 

£fB]£«* b TflWtt«*«ICtofc oTSS^ KgfcT 
££<B£bTl>£o 
[0 0 5 8] n. t*Bft 92 (CcfcoT^SStl* 

SKR 2 <Dto»m&* Pt H«^ni — 

93 \m$Pt _L©m<&G<Z>Cartesian *T**tT 

££Gi #&®5cttE*tgt KJ^T^Sh. £fc 
S£G. ttm^G. COBorel «»*£©«B (G. ) ± 
T£«£nfc&£$£dg. ft*-rs«HIIfflHT**fc 

raisdg. i*«riRft£G. ±©**Aa«T**3iu, 

[0 0 5 9] "T^T© (x, y) e QtcPLT, 94 

U 95— **IH*--96— Ki; 

oTfc«3n*IMrC**<!:?**. 97 

tt, Hftjft (x f y) taAtlc*W*tt**«aK:» 

-r^aic ffi*tg. »Miic£8snfcmft (3-2 > 0 
20 »©£«&a>«E — 98 — otasifcffl^ens. 

[0 0 6 0] (x, y) 6QH SBftftttRSftfrti' 

x? b\zm^t^^<D^(D^\zmr^->\^(Dj^ 

ft 99 ^ <b ^ 5 £ t ftlfcftbT^ 

ml — 100 — owm — 101 — ftffi 

Jtrft»lB«0-*ibT* lift 102 ftffi5£ 

^ £SSi»T*«. Mt (3-3 ) BHNI:, -ttXfttto 

M>T7^Xg. [2, 12-14, 18-21] t\Zttfo-tZ> 

[0 0 6 1] feLlMW»Af , At + ^atcffi^ 
i5^<^e»tf, 2K*bVi*>2J:D*#^«£ftnfcBU 

rmm^ h)i<Dwm(Dtf& — 103 — \zm-rz>m& 
— km — vmnvsmmmmt — 105 — iztmr 

\m\z, ffi^At- , At + ttVuizft-Ktzm 

ft 106 b)\s0m&<Dl&» — 107— 

40 - \ZWLT*)x7teMmZT&-3< 0 

[0 0 6 2] Bft (3-3 ) 3O**0*4v«fc*r*a** 

z bhowm — 108 — ^aa^gs — 109 — ft 
ffi&-rz>t^oct\z®%\z®mrzz>, :ct«- 
• —no — t — 111 — t\tmm^? Y)v<Dvm<D$L 
% — 112 — t — 113 t\zm?zm$k — 114 — 

fiMBlBMWHftT**. 

[0 0 6 3] ^ Y)\ 115 ftW& 116 

— 117 — <z>£5t::£&*f*o m&^#b)l 118- 

-- tCO^TII^ (3-4 ) <D£>2ftT-f ^-ffiftlCjg&I 
50 b, tLXmm^ b)l><Df£ft 119 t — 120- 
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— £\zm-?Z>m& 121 ©Sf§2&EU:©KPg<§ 

3JH&£-tfDlc-fey h?Z>Ct\z&r>» <2bA 12 

2 £Ht-*8£8##a£ — 123 £f#£o ZL 

124 t 125 *4, HP 

©J5£# 126 £ 127 £lzmtZffl& 

128 — ©mmrafcrfts. 

[oo6 4] wtbizmm^z h^oma — 129 — t 

130 tlClibTBIR 131 ©£JE 13 

2 — ©y;i^i4«»«fc**v>fci»eu -tft^sa 

s#sa 0-7 > tfvm — 133 — t 

%.v£*>. zom&vmmz* hr (3-3) &mm*<2 

b)l 134 ©fftffi 135 (CO^T&£§/Jn 

«^ar«fcje»©Bfl=3W«iE (3-8 > ©#ihi©ihb©j* 
»*»*u £de (3-8 ) fciessi-*ria»**w6o* 

£Kl/«3<fcV>3££*Bi^l/'0>*. 
[0 0 6 5] fcL^JE (3-8 ) OJfr&tfitmWZtt 

na, SKMrsa (3-7 > t4**ofc»<&oa«f, * 

fcUR (3-3 ) iWft*^ Ml 136 CDfffiffi 

137 — icov»T*-5*/h«Jca-r*fc»a>«fl=J4*<o 

W«fc:H>TJ^©*ttfcaKfcV>. 
[0 0 6 6] ±G0)||tt». fH|tft5*<£«1-*ft» 

Uteifl&R&g^ h;Mg 138 (DWffi 139- 

[0067] — 140 — \zm&¥mft-?jjfa*mfe? 

Z>&^2 h)V 141 ftWf** zyJK^-W y 

SOBorel «#*&©* B (S ) ±T£&£*lfc;j&£- 

[0 0 6 8] f<T«) (x, y) E-Q-fcHl/T, ——14 
2 r^tU 143 14BM 144 — 

[0 0 6 9] 145 T?»*fcU (x, y) 

eon m&mft* sjjft\zmtyzte^->tov>&& 

©+5*£'h3V>IE©ftRG>K , 3V>T, ->->ft©#:©2 
«©AI4H#it>R|-©«#KJiLTliTS^fc+j>fc 

Iftjft 146 KfflBl/T^* *>©"?» 0, £*lfc» 

UT»-©jiittajft t fc^TiBftjii (x, y) \zim 
ur^st»©T?*sfi"*. *»offl8&fcfea*ifcfije 

5 14, KR 147 ©8*Mt#/J\3 V> i H 3 £ fcft 

attBTfcMtoa*^ 148 <DWm 14 

9 — zmfe-rzum&v-mthT. hr — 150— 
-%&oct\z%m~?$>z>, mm (3-iD Msnttic, 
^fpjs[2, i2-i4, 18-21] © "w-mMm" tmtti 

5o 



(11) &K¥7-2 1 0 6 8 6 

20 

[0070] jhuc. nh^&mm^ bjvm — isi — 

- ©fFffi 152 £§frg-rs:/n-feX£5£<5£& 

WH£«;&fc^«fc5fc?"^T©H»jft (x, y) eQt 
t^T08Mfae[L oo) tKHLT&a^ h)V 

— 153 — ©*»©Mi — 154 — t^owuns 

155 t©B©JSa*«/hS^t ^3 

■T*. £*U4, US (3-12) t (3-13) tKttWt»6 
*Xfcfi£*4WR (3-3) i (3-11) £fcl£tftttt£*lfc 
10 S$lCit«LT/jN$^i<KSbfe±^ 3t*«*l«!H&i: 
^r"l¥mfH«ia:$ffi5ei-SH& (3-3 ) £ (3-11) fcfc 

^ Ml> 156 ©£F<B 157 £J&5rr5tRJI 

R©*(C, PIS 158 

159 fcfc«koT»/£T#*. (3 

-i2) t (3-13) owzmnzwrnms — 160 — k 

*»©H>Tft*r*. ±e©WH::<fcoTii»jSt (x, 

y) eQtMt iZ&tfzmmt.? b)i 161—© 

ftffi 162 l£Ri*S*lfcSl»l4 "lEMitMto" t 

20 »tf*l*. 

[0 0 7 1] %\ZW<1t^O\Z, *B<DW&\Zm'<?t& 

< ±5fttfc*T#«l»tllltffr»6*l&«S 
fc J; ?K ±e©H««WWS. 3t*« 

R (3-3 ) , (3-11) , (3-12) , &&Zfi (3-13) (4 if 

3£? ©ii-KUTttXRjtK^ b)vm<om&<DVimmzm 

©J; 5 ft«mRfcB5gbfc*5-3t©Mtt*P* Sff 
6*l**iC#l6**aiC**< ^i:(CJ:oTttg3*l 

[0 0 7 2] &\Z, m&^2 hJV»©fMBK*l>T*58 

w©*tfi-c«v^6*i*ast#»»*8a*K«r«. * 

^^©*ST14, Ib^R^S^^ h;WB 163 © 

ffflr 164 J4, 3tt*«*l«IS, ^IftTIWIHB, £ 

j:tfjEaft«*5©«*##W3wa/hic**»«Raa 

iE»C**f^T©BRjft (x, y) eQfc*^T*© 

*n«i»teiistf#tf6nfc»«*iiRtt*©*^niM 

J»)9«HJB**ia:Vit*l4VOTt>/h*<ftD, *^i8iR 
S#£®«S^^^lS1'S¥«^lcilSlXfttt^*ifc 

fe/h$<^:-5« »^Bffi©iB«jil©iB»©aiiS«#©fiF 
ffi©fcfe©«*a:, feS^fS©li«^©ifiST^3£©* 
rt»c*«6*i*jiR«#©fc»©**Pttt, IS^R^S 
50 ^2 h;Wf©*»©ff«©fltfC«l:oT*t>#atC3e«r 
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21 

tr-t?r«3if-t«qiAsn*. s^ftrauBft 

<D*to<Dwm<Dm#.#mMijnjZ$:m2th?<, z.<d&# 

[0 0 7 3] 165 ItttBftBK't* 

»©i«Bo^*nfc:--c*D- — 166 — it&ig&a 

MOW* hJW 167 HtRHK 168 J: 

[0 0 7 4] BttQO&HL 169 KBftfcdSflRlO 

mak^p — 170 — (ommmt, -r^ro® 
»iae[i <*>) icmlt, &tzm»mft — 171— 

- \zm-r%'t'<T<Dmm& u, y) ^BUT-emc* 

co pj^n tr-fcafflr**«»©»c«[iB*iir* - 1 

[ 0 0 7 5] 172 tt*ft*h*©B« 173- 30 

ffcfWift£ra£T£W& (3-3) , (3-11) , (3-12) , 

&&zs (3-13) ©«*fr*wi:bT)aian«iwft 

^HMi 174 if*, 

(i) —175 14, tt*ftfca£-f >xy*Xgi 

£0£&c>g|8 — 176 — <z>H8rc&£o 

[0 0 7 6] (ii) 177 ft, s#fa<Z>¥»$J«J 4? 

t ©B«rc*D, s^rn&oxftomR — 178 — 

[0 0 7 7] (iii ) Tt.o It, iE«ft«»tiDfc«OX 

[0078] (iv) m& — 179 — ft, h)vmm 

ft 180 <D/;i/Z>T&oT, 2initnfl( 181- 

— tCioT^^n^ilS 182 y 

[0 0 7 9] (v) giSc 183 It, m& (3-10) 50 
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[0 0 8 0] (vi) lift 184 ft. Bti (3-2 ) 

(vii ) BBA (x, y) e Qlc*tf *B£ftBoE 

[i, oo) h)v<Dwmwm<Dm — 
185 — \z®?mm?z>. 

[0 0 8 1] tft^SttMM*^ MM*©Mitt, 

u**^ hji,« — 186 — omws&k'**? mm§ 

187 0tt£$ofc<«U>fc#fc, MMt^ 

KJWB 188 ©»Rtaft*n*^86**ICft?¥ 

f*iH«fc»**^ MMi 189 \ZfkftVT 

»*nBft — 190 — ^H0r(»*/httlc9-r*l&Xft 

^mm§ — 191 — tvxfemznzo nff (4-1 

) *#«KAn*fc, $HJ8S 192— It— 193- 

- ®M?m*r cttfT?**. — 194 

— tt«r*R^ MMB 195 tC^LTfi®!^ 

raeu sfcmsft — 196 — miwk"vrh)im- 

-197 t^OmWl 198 <D&M$l\ZftlsT3 

x htti oar*. *n*6»MW»^^ h/wow 

««, a**"** mmb — 199 — t^So ^nicia 

LTit, Stt 200 j&t*o&<tfDfc*U>£# 

WffW«/Jo*h)W*Sn*. iUHft 201 ICS 

ffl*n*tt**^0 h)vm — 202 — \zmvt&#& 

ff 203 It, g£#git 204 

205 OMtfcZo C~Tm& 220 t — 

-221 — it, mat** bfrowmofoft — 223 — 

t 224 KBIT* MS 222 OSglKfi* 

HiftT&5o 

[0 0 8 2] -j£¥£tiM& £A¥iMM& -fciOiSH 
®mi^9 226 jMMHft*^ h;V« 

227 — \z$c±\z^l<, *itz.nzn*im&itm» 

(4-5 ) ®*tUT#6tlfc»»att^^h^ 
SOlFffi 228 C*L^tV»5*fr©TT?B« 

(4-2 ) ir^oT^g^tl^iaHS: 225 £#H 

■f^. -C7)^ 229 It 230 CO 

^Slt^o — 231 — tt2ft#ff»:#sa (4-4 ) 0 

r*. #¥«ft«» — 234 — jwaasnftv^itt 

i«K«*©iB»Kfi«f *i-^T©Hlfcja[ (x, y) e 

QiciabTiaw» (4-5 ) \ztt-?%yt j mtim® — 23 

3 < ot£ttJj-cm&M& 23 

2 RffK:, 235— 

*5 — 237 — im&ztiii\,>*5ttmwmftQm#K. 
VLmr^r^xtoutkA (x, y > eoicMtriFiBiS 

(4-5 ) \zm^^mmm 236 ©*M<* 

$<^^<fc^^ft^TM«$n^o (x, y) e 
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JKas. 

[0 0 8 3] 1. So^©jE©«S/Sfi#A t" tAf 
fcfcBUT. t fc*t*TB«jfl[ (x, y) IC&KU 
T^*^->rt©jfttt. «jK (t-Af ) 

(t+At* ) *SI4£*.av>*\ fljft (t + A 

t + ) *sttjM.raj(i (t-At- ) *stta*a^ 

^©^"j"*X*"T*4, (xi , yi ) t (x 2 , yi) 

t**n^n, (t-At- ) t (t + At + ) jfes 
asft& v- >rt© £5^5 ^©issffffi^©^"^ 

Stf*. (t-At- ) (C*5^T®«jS (x 10 

(t+Af ) IC*^TBW[ (X2 , y 2 ) iClftjKL- 

flTTaaStf, TB©^#»J:D«T'**. 
[0 0 8 4] 1.1. fijft (t-Af ) fcfc^THMjSl 

238 )zmi\sXto* 9 s->totoikka& (t + 

At* ) tr*5^T®«^ 239 fciMfLTV**^ 

->*©£©»*«. -*^HaaRsn&«»K:jiii/T 
•&fcjB£**"bi/na^ cnn*fca««»©# 

240— ©4 J ojSo^cog|Scoa^t^«^:#<^5o 

[0 0 8 5] 1.2. (t-At- ) fc*^T!«jft 

— 241 — ic^lt^s ->->«©££«£ (t + 

At* ) fc*ViTB«jft 242 fcfflBLTW&i' 

[0086] zn\zm^x, ***£o**-r*a^ 

£Hl 243 fcULT, 5/— >l*3©Tfi©= "5© 

A©-ajaKLT^«*#KBl/T*D, fo<D&\m 

mznx^zyumzmvx^z, ?tet>*m-<D&\z$t 

A (t-At- ) (Cfc^TSift^ 244 fcSHKl/ 

TV>*jfin?*D. *-©jatt«J» (t+At + ) 

T@&£ 245 fcfjHBLTViSjflTC**. Ifl«fc 

UT, HU^MI, 246 (ClibT, >—>l*f© 

TB©z:o©A©— 3tt«lRUTVi*«#K:MLr* 
«©ja»4«RanT^S«#:|Cj||L'TU*. rate 49 

5*-©jftttfflj4t (t-Af ) fcfi^tifca 24 

7 CfWl/TV»*jftT*0» ®-©^ffi^C (t + 

At* ) fr^VsTMja 248 KS#UTV>*j« 

Ti&S (H4 2ft#j|» . Jl5Vs5«ft, 249- 

— ©*«««»**< fc*#. US 251 ©* 

©»-3^©Hft©«tf^0T«:<W* 250 ©* 

©*3*©B*©ttfeH*»**<fcS. ctiH HK 

252 g t eG. ©+©J»^©BS©tt*«*S 

<a*t^5tfc*«*UT^*. fel/MflWKO'© 
I¥«©|£# 254 £ 255 t\ZW?Z>m& 50 
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— 253 — ©s=iv£i±©»nfl«nft«ss»$n& 

a^tf* US (4-7 ) ©ft*tt 256 t^fHV 

&?CttfX$Z>. ££T6«ft 257 <fc 258- 

— \zm$[^? Y)vv>mm<otiLft — 260 — t — 26 
1 — t\z®?z>&& — 259 — ©bhothmk-p 

*9b)l 262 tjmbtXr>rtoZ*9b 

JI^ss (s. , s f ), s eSKBIl/r±e©fflll«, 
m& 264 KcfcoTSgSnS MS 263 

©*©a^©M»©tt»«t*«**lrifc^5 C 

[0 0 8 7] 2. «F«»afll^^ h;U»©IMlfi 265- 

— fit HftjA (x, y) ©ffi«Ta*fc»OT* (H 

2£#b» . e:n»4*©^tft*f*-r*. -rate's, 
2.1. h»— 266— ©«#**< as. 

[0 0 8 8] 2.2. fclsHftA (x, y) ffi*%ti\zm 
iK&#£Si$J£aStf, 267 ©JttMW* 

£<as. 

[0 0 8 9] t)HB«*tlT^5S/->tlB«^D'feX 

*©fc©*:fcBrr*. imotiAtc^&^^ttJis 

nsaStf, &£gt GG. (C^LTKS 270 

©JBWtta***^*^**^ &Sg. eGi fcHL 

TUS 268 ©«#«***e^3fl>»-6^ttll*- 

-269 ©*B#«*t*S^»£, Hfejft (x, y) tt 

JIK«»©fi»fc»<&lIIBtt*«K<, Sfc-^rTttHBc 

273 ©t^jfc&fcfr^fc^fctoAT* Wg. 

GG, fcBl/TBBfc 271 ©JB»«!W*#^** 

*t>BHft 272 ©*©»^©BR©»MWt 

*ev^»^ HflbaL (x. y) «s^fRlfcffiR^#*Si 

WfcWIBibWK^. 274 IS 

ftA (x, y) ■l*&t > b"b«iBSW©a-»Kf±avvtVv 

*©■•£«* ®«¥ 

®^©S^ine^fc^^W^S^s<t3a>— > 
rt©*#±ic*-B*t>bna^ — 275 — 

©+©»^*©B>»39«*#^«^, BftA (x, y) B 

w©«»©*ft*6ti*s«««**««*iriBttt>* 

So 

[0 0 9 0] £tt&©«Mtt«T©££*S»LT^ 

-rate^, — 276 — <d&*\z, m&— 
-277 — <Dm#m\zit®Lri£rzffl& — 279 — © 
wttmtmwtn* — 278 — ©«fcjt«i/Tjg*» 
ic®ii>rsBiiST*s^^T*D, ^fcs^wa — 28 

0 ©ft^rli. H% 281 ©^fillCJt&LT 

^rciis — 283 — <Dmfm*mtizm& — 282— 

— <D^<om^<DmwLomnm\z]mhx^nm\zm^ 

[0 0 9 1] MttBft]»«**<a*t*ttVOT?'b, s 

*MS<L*RJ!& (4-6 ) rt(CJDai:UTSns^©»l6 

?z>m®m& t ©«fc±^ < as<t 5 aft*-ca«ns 
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^-TSS^iS^giC (4-4) <o#£4*s. s&fc 

[0 0 9 2] 1. -T^TcOgt eGt KfgLT, Si&— 

--284 IC±oT£83nj&v38lMft (4-5 ) rtfciH 

»£LT5in£Wft«, gift 285 KJfcSLTfc 

gift (4-9 ) \*. m& — 286 — nmifft*t*m* 

[0 0 9 3] 2. t^TOs eSlCHUT, Hff 28 

7 teAoTfcfcSftjfe'SttH* (4-5 ) ftizm&t 

bx&nzmmt. m — 288 — fcjt*u-a£»tt 

icJBUnbTV^^t^HT?**. mv^Antf, 08ft 
(4-10) tt, Hgft 289 — jw^ftrrsiSttvvs-c 1 

[0 0 9 4] r 2 , p 2 , q 2 #£Tfc^ft£»©« 

£\ t^TOg. eGt fcMLT. S^BIS 290 — 20 

-\Z. £££ 292 tfHff 293 <D&5\Zfe 

mtsftfr-o — 294 — -r 

^TOs eSfcgSLT* S^Hlft 291 tt, ±E 

[0 0 9 5] ftttXft«olcnbTSUClC%A#«»« 

gj£ (4-4 ) ^»<:ti:<fcoTMia^ h;m 

295 ©IMB#-5i^5#tttt, H8fc*SD5r8 

S (4-4) ««*<©*S»oTVi*BllBtt3»J*St^'5 

ctfcBar*raifcaa-r*w«w»*. £©rai 

m 296 ©FHEtt* T^TOHfcjflt (x, y) e 

Qtt^TOIl«Mo€[L oo) tKHLTaWSHC 

* 297 (OffHfiK^OiTOaillDOililHtt, 

i. mwmm^h)vm — 298 — omsit us 

*a3»toofeiRj|rrS4:*BBe©^* HMS* 299— 

[0 0 9 6] 2. BftQO«||LdQlC|B[A^A«)lbX 

»»&^ h;w§ — 300 — <Dm«<ommmmt, m 
&m&d Q\zm-?z>?'<x<»m»& (x, y) tr^r 

OMMaeQ, oo) <hKMLTtf nlc^Ll^t** 
[0 0 9 7] a€[l, oo) ttBffi<Z>»*ft»tr**i 
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;MB — 301 — ottffffffia. *©<fc5t;:£g-c# 

So Tftfo-fe. 302 *tlJ&>$IE£{fcffliK> (3-1 

2) <h (3-13) tt-tn-WU *T^T©li«& (x, y) 

e Q \zm UTWff 303 

— 304 — tc<koTiS<HT££ e ::rr. , r* tt 

PM 305 

306 K±oT#*6ft*IE©*ftT»*. 

[0 0 9 8] Sft#«B#S£ (4-4 ) ICWlSiBM: 

tun — 307 — t — 308 — t&*n*nmm — 

309 £ 310 tXWZ&ZZZtfc&D, £ 

TzMfo (4-11) £ (4-12) tfclt#-3tIWIS 

311 £ 312 Z.£\Z&*) % 3£ 

^ss (4-4 ) mbmkmm** him — 313 — © 

*tt©»«fcBlbTTE<Ojtfl:*a* — 314 — \zte 

[o 0 9 9] \m (4-2 ) fc±oT**an*»w*-- 

-316 — \zmnzmmitfflm — 315 — t — 315- 
1 — tttn^nmm — 317 — t — 318 — t 

Tfi#&A££^5&#©~PC, *VTn&M& — 31 

9 — r*H{K (4-11) \zLittfi?xitm2ti&ifo 
\zttLxm&m& — 320 — \m% (4-12) cut* 

oT*«**l«t^5*#<OTT, Hff (4-2) \Z±~d 

T£g£tt£i& 2 gft^ h;Mg 322 tm&Sk'* 

9 HM§ 323 £©iHWft 321 \1 % 

—326 — ©±5fc3aian*rai;»*Ra«^ft b& 

m 325 ©illgift 324 Tf«#*A«rtBT 

[0100] fcLfflaat^ b)vm — 330 — ansae, 

ft"Wh;M§ 331 K*ofc<»blrii*fctt^ 

:>Tfett*ft^- 329 KBITS SRJift- 

-328 O-rtTflDK^ifnfc^btfntf, -eLT 

&£«TSA*ntf. ttXm'WbM* 327 

umiL»m»^mA (4-19) *«Bf*£:^5z:fc*. 

±E©fWtMN*LT^S. 

[0 10 1] £ftq 2 tfiVu\zft'3<£&* ^LTS^ 
90 — 332 — ©»5#caAnilo«»jO*-«fc , tfnfc:ffi^ 
<t*, tflHft 333 tt, 

334 — tnm&ovimmzi&rjz, zrLxmm&mm 

\Zt3iZ> 9 

[0102] — 335 — &m&#mM*m3: (4-19) 
omthxmznmmLmm^z bm<z>wmx$>%> 
t-rz. j:5Vit>fc«i©fi«-c©amt*»»*e* (4- 

19) ol*»v»*ii»»TS. ^TSJa&tc, (x, 
y) ^SiR«H^®Afcttg^e.ii]K*#©^©tt@ 

«fc*««T*, **i3&»6H« (4-11) (D£$\zm&m 

ft 336 £Jt£-r£l&£S r 2 , P 2 , q 2 ill 

in (4-12) ©<fc^(ca^?ift — 338 — $m^-rsi& 
g!ft — 337 — £^<Dyt¥mnmm£ijfa¥mM®<D 
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[0 10 3] 339 £B« (4-1 ) fcioTjai 

2ft5®&ik«? h)mt?*t, BBR^WWh- 

-340 iHB& 341 l*TiBO<fc 

^fcttBft^ h)Vm 340 <D~X&j£ 343- 

[0104] ofy^g. eG, \z#&-?z>yt<m 
nmm — 344 — \t. a — 345 — tc<fcoT3&# 

S^^rSS (4-19) T%2tlZ. Jl©SCfcBUTttttT 

1. (x. y) a«aMff*»tTv>*. 

6B8ft 346 <D<@«/jN;*<ft9d£ a £ 

Bft (4-22) (Om\t, Bft 347 ©«K:ffi:*< T 

Ktlffifi 348 KtSWW&ft&»Bf»»#S 

jC (4-19) ©r^©jD»Oft4r«t, »— ©Jllft®»&l;: 

Bft 350 — ^u<s^-<Djinisro^fcM» 

351 K«Lt>tt«fift£8ofcl» 349— 

- fcBUT***#Bftil/TS*»5«fc5fc^ST* 

[0 10 5] 2. (x, y) «t«K»#fciB^ 

<„ *n*6Hfc 352 ©MtiiiJnU^So 

352-1 omfiVOk 352-2 ©fli,k0'h3 

^m&\z\t, yt^mnmm — 353— 

fc-^S (4-21) ©jtafttfiET* * t^oztte, m 

ft (4-22) ^ItJirrSTffc^ii^SZlt&Blf^-r*. 
gift 354 CDfttfMK 355 ©fit^0^# 

wteKtt, **»n«» — 356 — newttt^n 
fc-^»sc (4-21) ©jpft3!fj<iT»«tir^cttt, b 

ft (4-22) WM*5-5 «»«t-6 fl 30 
l/fc#ot, US 358 OflWBft 359 

<Dm\zmv^tt\z. gift (4-22) \t*<D&j:m — 35 

[0 10 6] Wft 360 ©ft)J«*#<ft5i^5 

f£t>*>m% (4-24) K£oTff£2n£Bft (4-22) <D 

«*«tc©i*««a«sn*«8 — 362 — ©<g 

361 ttt«*rs. ±EO«Si«TE^«'&tC 

[0107] 1. aB«jnc»sr«»«i 40 

\zmm 363 SAXttfcMttl/'SS. 

BHffi 364 ^>7ht SCitAoTBR 36 

5 — ©wfftSKs-riiKasTSRriBtt***. 

^Ste^tlteBft 366 cDte£ii;to3i*£BJiift 

[0 10 8] 2. PMffi 367 jfe*«niHtt® 

[0 10 9] s e S tl>536rlft©»lft¥««ft 368- 50 
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— tt, 5£ 369 fcJ:oTaft#«»i»jC (4-1 

9) Tg$n-5o £©3SlcBUTTE©«^##*T?# 

-rat)*, 

1. m»& (x, y) B8j»AK:Sfi»»ft«fl6A: 

K *n**&Hft 370 ©ft»4/ha<ttD5«, 

ilCD*^ Bft (4-25) 0<lBHft 371 0>mz 

xfi^<r*5^ e ^SBrtiB> jj$wmmfo — m- 

— tiiwttf sn&aa#«»3wa (4-19) <z>un& 

^Sll/a 2 K:*bV>tt«fi[ft*»t>fc«lW&« 

[0 110] 2. (x, y) tts£m*>&XKtt 

JMciE:*<. *n^6B8» 373 fc 

0#So MS 374 0>«ft*Hft 375 ©ffl 

<tD*a^»^.fcl4, *ffil¥fSffl$5— 376-— ICfcStf 

mft>n?tr.$:M& (4-2D ojnft^iET&^ii^^z 
ttt, gift (4-25) &mm?z>'?&%5£^oz.t%m 

^tSo US 377 OtttfHft 378 COffl 

j=D*#^»^ictt, ^faWUfSflft — 379 — \ztezs 
#tt£n£r*^a (4-21) ©MbJtftTffcst^c: 

ttt, gas (4-25) ^^-rsTt^st^s^tsBt 

§T§. Ifc^ot, MS 381 OftPHft 

382 0*fc$l/l*£*, lift (4-25) 

— 380 — \zm-?z> e 

[0 111] Bft 383 ©*©*^©B*©« 

#**lr>*£, TfB<Dfi, fato-feB* (4-27) SC«fco 
TfffcSn^Bft (4-25) ©ftfc«iJlfl!)»*B3Wi* 

^n^llft 385 (DM 384 — t\tM'>-r 

.J5Hft 386 ©«t***#ttftfcffl«j« (x, y) 

[0112] Mfca^fciSK* iEJM:M»®ftft»» 

SM£4AS»*ft^ MM& — 387 — omz. - 
ns©*fcftlcfc*3taBftft3l*iB2:S , J > K:B»rt'-& 

ci:t?^^> ft -n^ «Mi«»#sa (4-19) tcsn 
as#«^es (4-19) ©»#BwwicwMrc 

*«tV*5ca:S**l/&39«6ttBftT. tT.ttt* 

[0113] ±s3^#sfcAnT, ^dBTie^aai* 
mm*®* (4-19) $»<7 r p-fexB, ziocofflMT^ 

Jrt-B»B-elW/t9>X«1H:5iT-6t»i:#A* 

BJjmiZ (4-19) CD^JNb (5-16) *6*U*=Uk»* 
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[0 114] m% (4-11) KSnSS&g&r 2 , p» . 
q ! <D(S^#<-r-5C:tlC«koTa*HS 388— 

n. cn«. asieisffcfrga (4-m c&i?«/t9> 

mm t uftvmm® t ©m©i^/\- ? >x & @s-r ■& & 
&jumuk&s£ (4-19) «. #flw»M»cit 
&f sua — 389 — <Dmtmm4>?z~/}. 
stttHtteaus-rsHft — 390 — ©t&*f«a«i;(iDT 

«J:9tttt«-V£«r«-V*«3. HftC. MIR (4-1 

3) 8&g» 391 ©ffi«r^^<-T5^t 

C±oTm*Mft 392 — ^-s 

BCWt B£MMttB£ (4-19) Kfctt*/'?^* 

k. 8ft#«ttt>a£ (4-19) «. yemnum\ztt& 
-raws — 393 — ©wmi**^**-:*. -m 

vmmmizttfctzm®. — 394 — omi&*mmt 

[0 115] 3fc?flftmte3ffi¥*M&£C!>S«ilfr> 

£fcfcV>T8ft#aS»2rgj£ (4-19) ©#££*©!&« 

*■**.**«. aaist — 39s — mmmow 

*fc*«MACj»>T^I4MI>irS£ (4-19) ©* 

WOTS** 396 ©fcJ&©itW£&££«f -5 

*«, S&^Sca 2 »4. ^(nl¥^S*9m^-rsll»[ 397- 

— ©fc»©Jtfll£&£ito£-f S. 
[0 1 1 --6-] --I&aStr- 1 tp» iq 2 (4- 

24) tt^i#«ijg^fss (4-19) ©«tc^-rs^^i«n 

t 398 ©«*•&*)* (4-27) ttJli#*»^B 

* (4-19) ©»IC»-r**|6j¥»(Mi»©^S©±fE** 

[0117] we©,j;5»c, mstim*.!? \-m — 

400 0>WSS 399 I*. S&*«*#S5£ (4- 

19) ©«?<!: bTfcSSftfc. cntt. T8S©«SC 40 

1 TZttZttfTZZ. £;iT*B«|B«fcfSft 

»fc, asc#«a»*es: (4-19) cimsHscsisR 

W^BSSftT^-S. £&. -T^TCBift^ (x, y) e 

QlC^^T^jS-rSHStttSa^i' HI 405 © 

ffF« 404 KlfcSrrs t^5u £ £ S-J-fcJ&fc, 

12^ 403 ©ft*? 9 ICE*? 402 atffifeft 

[0 118] <ft*KME"<? MM8 406 — atm 

*tHM-*fc»lc. nN[i. 00) #60ttSR«!>*IH« 

»»&oi » • • 0. icatb-cfc>nfcna#. »s 

[0 119] ao *oo(-^LV»®£»^8ft^»frs. 
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8&gRa. ©<Bttllz$U>ifi£U £fcgj£R#lo 

0 v 01 . • • 0. £.!:&<. fitt 

FJrfc©"^ 408 K*-3&<5U>»£ 

Sffla = ao *>6J&*0, -tLTjfcff-raSftSftltCH 

bT#^nfcas3r#®^gic (5-1 ) ©«?£«jjnsfffi 

86^»©Sfia = ai . • • •. a. CULT 

msL&mmismt (5-1 ) *M3c*nTfT< etc* 
10 0. MgRS*^? h;m — 407 — ommam^n 
■5. 

[0 12 0] 6 (a) £TSi©Blf& 409 <fcoT 

8j£Rtea = o> , • • •, a, ©£-&±TJE83n& 
ttgRfit0©BIRi:f*. 

[0 12 1] t>bS*5£R 410 MM 411- 

412 ©<k 5 n*fc 6. tf , IE£fl:fM» — 

-413 ti&TS 414 -r<-r©H#jS 

(x, y) eQ£-f<T©Ki&R<Ia = ai , • • •. 

a? a. fcMb-c-en-en — 415 — 

— 416 — ©i^icisiK-rs^i^T^s. zne© 
^©t^k****** hm§ — 417 — ©*»© 

M©a&JMMttr8£ (5-1 ) fit 418 — tW9 

fc»©H-»:/a-fe;Ua, TB©±9K*6KlMffca^ 
-T^fe-fe, -T^T©lftX»<io = 

01 , • • •. a. tcSbT. (a) »c»^ 

■r ssaw h ji-jgco-rr ic# e nttwm — 419 — 
*wmmthT&^ttifit>. B£*s##g5t (5-7 

(c:»^S■rsiiS' , ^^' h;p*©w<ffi — 420 — 

[0 12 2] tt«Ra = ffi . • • • , a. ©ab^Hig 

toowm — 421 — K.wr*msL#mBim& (5-7 

) tt, -T^r©Iii«^ (x, y) eOltiibT. X« 
^^f-JP 422 Of&ftt 423 iV^JgS 

TS-a--5-€-©s«H»t©ra©iiff©^s€8-r*. 

425 fcftfe£t>tttt«o£#«T.& 

40 XA#«»^aA (5-7) ©»©fMKtbT8&^»fio 
icMfS'TSSa^i' h^S©iMfi 424 £#«>5 

a«Rfflot»jsi-«»s*»»^Ba (5-7 ) 
amammw — 427 — tvxm^n^wmmm- 

-426 *>&*&»T, 8&aa®a{C»*-r5»4#i8l 

Jg^Sit (5-7 ) ©#©&#;* n&fFffi 428 

**. Xf>^ 428-1 Cfc-sTftJtSttS. 

TX*7-8iaS 428-2 \tZ<DZ7-y7<D&$ 

S)£8b, «.9Y-m 129— «Xx^y©^lRlS 

50 JgefS. 429-1 ttTE©H* 
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430 — &m'Mz&z>&o&ti:j3xmiR2tiz>. xf7 

431 t4, m& (5-10) tfwe (0, 1] 

^r&iRsn*. &s$nfciffls — 432 — *4, aa 
afflaic^^-r^sar^fi^ssc (5-7 > momfr 
wm — 433 — tbr^n, sftK&wMttox 

fy^ (5-9 ) f4, !6^aMalc^«rr^a4#i®^* 

as (5-7 ) ®m<D j t®x<o&mt£tiitm& — 434— 
sntiMB — 435 — a, aaaao£aMrt-*aa 

^ hM§©fffili 436 tlTf^n^ 

[0 12 3] <feb^ MM§ 437 ««**iaffft 

mms — 438 — ©saT^aaftus* 

- — 439 — is — 440 — <D&*>\zmM\zmmvz 
a. — 441 — izm^xmrnx^ 

*JW)ftE»* 442 (4, #8*ffUfi* 443— 

- ©^3bT7>?cfe£o fMl« 444 \$, 44 

CO 1 2 4] ~*-b>m2Z}{Z&^X&12 MM§- 

-446 tt»ffl»»2&85t 447 OMtLTfe 

g$n^o -tft*6*ft#«»*BSC (5-7 ) ©#©& 

n^nfcfFffi — 448 — 449- 

— #lfc*L<tt6nT^SB« (5-6 ) ©<£?(::£ 

[0 12 5] (5-13) *Lxm 

9 (5-9 ) ftajflLfc&*«&nfca^8»2r83 

(5-7 ) ©#©&#£ ftfcifljffi 450 14, &-fb 

*>J;OfiWMi:ttfc&fc^. *©»»c«*31*F4, 

#B»«UB« 452 ©^:iH7> 451 ** 

!^»«T^oT«ffi^i:<^^0'r*5ii6i^S* (5- 
13) fl^MMI — 453 — fc«LT«aflU;<*< 

«n« (4-21) ican*z^fc»*WE©ft«»»*c* 
»:&sa (5-7) ©a82ft8&T&a£fc©**aT 

*0»*fc^5**©8«T**. lEftftMtttt. BS« 

(4-21) can*n**iC)&«iE©3e»*»aTfttliJ: , 5 

(5-7 ) ©att3£8ftr*«£lctt*»K:tt:«. - 

[0 12 6] B£#8a#8£ (5-7 ) &»<*pra.- 

h>ttic*viT>4, b&bjk&s* (5-13) tmwm 
— 454 — xmz&zznz* £©^&te, cfc 

*£fe-rcna. c©flS:ia-h>ttttttaftB«^ 
h ft SMM" * fflis©fc«> lc#£8ttB£#8»#8 
sc (5-7 ) ©jEJBfc£fc«-r*. ^ hjp* — 455— 



(17) 4?5i¥7-2 1 0 6 8 6 

— fcHbT«#T#t?#ff©flU8* 456 14, * 

©±5«re«sn&#B»fp«* — 458 — ©*3tr 

7> 457 ^©iS&Tfc$. 

[0 12 7] 459 14. Wffi 462 Kcfco 

T^ah*»aaaafc»w-«a«E'«> mi*©» 

<B©^*3 K 460 t Plgn tf 461 t 

©#8»«u8*©sn?»* tr** cctb* — 463- 

— \t. tt&'TZm&\t?'<XO& (x. y) eQ£H 
bTj£&^ Ml* 465 ©IWB©**3 tT 

i0 464 (Cfeff-T5i:^-5^i:ft^-rfc«6tCffit)ns 

gs*t — 466 — i4, #&-tz>mm**?'<x<D& 

(x, y) eQKBJbT&fi^hA 468 ©W 

ffi©pj^nt: 467 — iciwrr**^ shifts 

ffe^tc^n^o feLa***wMi©ifB©*r*=i 

K 469 fl***"^ h;Mi©Mi©5F«3br- 

470 fcJS£K«U>fcStf, -r^T©©e[0, 

l]fc«LT#8»«W* 471 ttHttttfHflS- 

-472 iC^lC^bK 8>£gc©t4, m&IZ b)l 

«©fNB©flJ^3tf 473 ft^LTifegWftiW 

a? jBt36rifii¥»«i»t©7-r-H/xy^asi©a*ft*a 

[0 12 8] 474 14^# h;M| 475 (C 

HbT«»-C*0*#©ffffl*©SlTf**tr*.. 
-?&&©£ [0, 476 14, ^ 

h;U« 480 tf^Z h;l/« 481 

«l/^t^3*#©TT?, ^2?h;M§ 478 ©II 

JM§ 479 fctt#bT^4#a»ffffl* 477- 

— ©^nhT7>Ta5S« *n^6ffffl» — 482 

30 14, TE©»frft*Jfrr3K 483— ©^>;t-t 

i. aAaa^a^ (5-14) ©^br^n/^? h 

JU® 484 14, ^:««iKm®ll8©-IStbT, ^ 

^ 488 ifi^ V)V%} 489 

lC*L^t^5*ff©TT, ^^h;US 486 © 

487 \ZfcfthX^Z>W®m 485 

tt. ^*^-^ac t )©g|j&<hI,^$tl§iHS» 490- 

40 — ©, aK6)tiabTaia©aanfta. -©£& 
©«Hft©a^ — 491 — K^b^^a ztzwm 

«OUIKft^ JMIft (5-16) 39»aTr*afc»© 

®fr!4, fPffi* 492 \ZJE0&nnX$>Z>Zt& 

mm'z>zt\z&->xhffi&'r%z£&xtz. 
[0129] 2. aanBraK©-a^LrffA« — 

493 »4, *»^fPffl* 495 ©^3E7>- 

-494 fc?raftHOat>jfi^iSfilT*S^i:*«B* 

50 [0130] ttaaae»o.5K:j»itrr«a^&©^ffla 
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496 te, J:fE<7)g#£$£U Sfcaft©^ 

(5-i4) \zmnz>t?m$ — 497 — tLxmzn 
mm — 498 — ©^sri^ot, &&mm 
(5-14) 14, rseo^^w^ic — 499 — 

[0 13 1] 2£WKEf8£ (5-17) ©*ftSf 

*£#a»#a£ (5-7) ®*h^*t$Q9&*#k 

r«. (5-7 ) o®wfi«$ffliS'r^ 

[0 13 2] sei^raJUHMMtr. , geGttfc 
£W»<J> (R s ) ©^£±Tjate*XTV>*jfc 

^^h^ (u (x, y, t) , v (t) ) (DWffi 50 

0 ttt^TCDiMML U. y) eQtt^t^M 

mm*!? h;w*oiHfi©«-«o&»©asiw<wftt*» 
»*fia (5-7 ) <D#m&ftfs*>®r>mz'o^xm'< 

[0 13 3] ^3fWifbSI«6^ttffi^W4> (R 3 ) ±T£ 

(R a ) HRMftF&4fb£nft«&0> 
*" HU t<TW (x, y, t) 6R» fcHLTH*- 

-501 — kj^t^r 3 ±x&misnitmmzmft 

^mtOHk (F*<f>) -cafe^o 

[0 13 4] FI4HftMBrC**£U (R s ) 

H 502 i:^3±5ftBf«<0Hjesn&ft-(?ft^ 

MeHStfe5i:no 503 £Sfc£o 30 

*tUT#6n*«IRfc«»^IBftBi* (F*x) th 

[0 13 5] 504 &BLMM 505 *£tr 

*ifllffl^t-rs« t*^T<D 506 tCBILT, « 

nfc-iSM&r* wiESft: — 507 — £«*ftHftz 

mscr, <Dmmitr= (r*x> trt ®«¥M<z)TBB 

<Z)S8#ifc£ 508 \ZM?Z»& (x, y) fc*l*T 

4A^n^> 0 ZZTZ\Z&&<D$k£, 509 \t~ 

fritm®;^? — 510 — bjvtm 

511 <hO«^T$.^o 512- 

*u HSr. {6SB "fiUMbBKHftrar t»« 

an*. 

[0136] m*immm&w& — 514 — tiscwt $0 



»MT7-2 10 686 

ItSnfeHBHR 513 tS*{b#®®»ii&- 

-516 KtttWtf 6ftfcHW» 515 ttt 

fcfcgSft* (R s ) 0>*&±T&OJ;5lc£8$n*o 
4fteHft»eo (R 8 ) *c:fe^Tg*fc»£@«Sl&- 

-5i8 — Ktetfttttfcnfc-jgH& — 517 — <om 

\m& 519 laot^^Wo &J£WS<f>e 

o (r» ) K*»?BttbmHra* — 521 — \z 
istwtf en&HRMt — 520 — omm® — 52 

[0 13 7] 523- — »3£fttt£ftaft&. g 

(A) A fcttttSftfc-f >x y 

524 — ttffi*©ft^Aic»iB-r«ft-e&i*fflfcje«k© 

db^iB^&ffl^ra^ (R s ) ±T£8£ftfcHK§I*- 
-525 X2bZ. &£W&<f>e<J> (R s ) 

^$nfc-«s*fb^«HR — 526 — awt. 
— 527 — fc«fcoT#*s*u «teHft«ic*i*<&tt 

£SftfcHR«^MM* — 528 — <D "KST t 

wan*. 

[0138] 529 «®«¥ffl±©^WiE 

• a, t'HLT, *&b)l 530 

^n«, C3^3jft©yU!yl«tt» TE©H« 531- 

— ««»JBS *XS £ £ ^g^TS t! 7 5 y F 

[0 13 9] "4f U y FHfctt" MLhEOK#K«3« 

/t^Jcffi^ns. 532 

♦l, -tn**6*f -^T©k=l > ■ • • > n (ClILT^^ h 

533 \m& 534 

535 <D<k5\Zfem2tlZ, -tm<D<k?\Zfe&2 

tlft^bJl 536 tfit<<T<Dk = 0+ I, 

*ftM% (6-6) t>m&2ftT^z>t^zt&mm? 

[0 14 0] k'BiEOWBaS-CftO, veo (R 3 ) 

537 tf^T©i!i^S:Ma = ao , ai * • • 

• on t\zmvx, wmm& — 538 — t*v>& 

md*HS 539 H#£Q±-P*0*?IC£«;S 

[0 14 1] «J«6(', (x, y) \mft$k& 

540 izmLT^Ztfefe-tZ. ZZX-ATtmk* 

2 b)l 541 \m& 542 

543 <D£o\Zfe&2tlZ> 0 544- 

- \m% — 545 — 0«k3fcjeastt*. *n*s-r 
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^X(D g e G ICR LTHSKft 547 (Df&fi 

546 — coffin m% (2-4 ) izx-DTfemztizmz 



36 



-550 fc;m*SiS£Sft&HR8*fcH*H 

ft 549 CDSffl 548 tVX&fetStl. * 

fcH«8!ft 553 OfiHMft 552 <Df&# 

551 ©ffifcJu (2-5 ) , (2-6 ) 



£8£ft£&£Hft- 



— 556 K 2 tlfc- 

-555 554 tl> 



[0 14 2] (x, y) *m$Q#&to&Aam*At 
^<oS6ft0i , 02 £K«lyTTE©H* 557— 

-^•uesft*. *n*&MHMc — 558 — cDfitt 

*<Z><g*B» 559 <7>®te, -MK 566 

567 

—568 

569 <D±o\Z5-Kt>nZ>$kft 565 ftt> 

<d&\z&»&wms«l — 563 — omt^ottt'en 
nummik — 564 — nrntommmmm — 56o— * 

(s, Vf (x, y, t, s) ) • 
&J$^ 8 ££T?f (x, y, t, s) ti, gift <x, 
y) eQ, t6T, s eS<D8lftT&oT\ Z<DM&\$ 
£ftteT, s e SOt ^T0H5fc<iKltH>TMk 

(x, y) eQ|cHLTMtt9fc«»W*Tft*. 

[0 14 5] »^SftlB^**ttRtt*Ottll*»^ 

m& — 577-1 — cd, wi;e^sT*an**«Mi^ 
T?«*«A&ns. "f H'&siajK/Sis^S'f, 
*&»£-s \zmt st^totcs iriibTTc- s 

[0 14 6] «±0ftUiaftML (6-23) ©ffiStD 

578 3W«JB*n*o 

[0 14 7] t^TOtGT, seSK^ttt 
(x, y) €Q|znLT»KnK:ft^Rr«Tft«Hftf 
(x, y, t, s) tits eSt&W^L j£ (6-2 

3) «fl«Hft^tiD#|Re»]E«K:«l:oTft^ 579-- 

~ hX 580 O&vlZfemZtlZo ZZX 58 

i — \mmSitLx^ h)Vs o*sK<wsrr«jEo 

D, 582 }&<*9h)l 58 

3 <Of&ftX$>%. 

[0 14 8] m& (6-25) t. m&S\±?«X07CS e 

*t*#«lCAh«t, f (x, y, t, s) tfSfts 
KHLTfMftT*a»£fcttH« (6-24) KSft&ft 
tt 584 CO J: -5 JC^T t*«T^^o 

[0149] m^Gi BtBt?»oT, dgt aa — 

585 — £tg — 586 — \Zt&Zttmz>jim&X$>Zt 
fiftf*. Cl^r 587 «f^T£> 588 — 



10 



30 



40 



-561- 
-562- 



\Z£-oXnt>tlZ>c 
[0 14 3] k" teIE(DgFft£»T&5<hU 
-571 



-570- 



— 572 — Oct 5 izfemznz-Xjim&^z h)vx 

*S£U £fc$k£ 573 574 (O 

&5\zmm-£nz>b<ot-rz> 9 ®&&mo = o 0 , 

oi a . K#iS-r5H^©»SC#*»*a 
5£ (5-7 ) £B£WB#&a (5-17) 0>#K3l»fI^^ 
DStt. ttfflWtafc#*rr*a«^hMI 576- 

hmi — 577— fcH-r*aA«»*aic*J:tf*© 
*iB»»i:bT. — 575 — ±T^n-en^o<t 

[0144] miL*mmim% (5-7 ) 
a (5-17) tfc*w-*a^sR:«f *a»E*©Tcs 

(6-23) 

KBLTIE©S8ft£R"C**. 
[0 15 0] ±e©«MWc»^»T. l£IM»«tA 

(5-7 ) 589 ±X 590 CD£o\Z 

£8?f§, XOWnGTBA (5-17) 

591 ±T 592 (DXolZfemXZZ, H 

« (6-27) , (6-28) fc»ft*H*fl!>3l*fttt* 

e^®TfcSft*BMfctt* jft — 593 — ir^Tfflffi 
3ft*#«* 80©liKit^T<o — 594 — izmvx 

& (x, y, t) ■ -fc*^TfHB-S*l-6. lift 595— 

- www* 

596 

597 

598 



-599 
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50 



ICkoTfcttSft*. 

600 — <D&o\zfemznz>. 

602 \Z <fc o $ ft £ **— 

-603 604 CDct^tC^g^ft^o iH 

ft — 605 — \m& — 606 — iaoT^i$n 

§0 CCT^Pift 607 \Z 608 <D£d\Z 

ftS^ft^o ±®<D£z>\Z, &ti (x y - , t) 

( (x, y, t) 609 CD^-fft^K^l/Vi) 

(ClIUTHft 610 om\m% (4-8 ) (CctoT 

4;LSft*. 

[0 15 1] 612 611 \Z& 

»t*a4#«n»s«a (6-27) ^MStsiiS^ss 

(6-28) ©WBttWSfcfc, TE©±5a:»JMfe#0» 

AtrJ:oTg«$ftS 9 jft 615 616- 

— ©JUcftSASttf ^T©B«A 613 tt" 

^TC07C 614 t\Z^X, &&H?b)l 61 

7 — <D§mv>m\t. m&s<? h& — 6i8- 
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t. m&xm&jjnjs: (6-27) tm^mm^m^: (6-2 

8) t\$, 619 ^^f^TOIM 

u, y) ngibT3s<^ssns^ rn^oa 

0 — 0tt<Dm&tzn?*m&&mnmif&i:xpt 
621 — o*to<»mm\zm?z>miLmm-j3miZ&&Tf* 

[0 15 2] &£S<D7CO&£ire I S I iCioT^f 10 

t. -T<<X<D 622 fcHbTJt* 623 B 

Biff 624 <0<k o kss-c^So 

[0 15 3] TeB*£SS«R«fc»fcHWCflV» 

£>n&-:3<z>#£ — 625 — 

626 T£3o fcbH-SStf&lff (6-38) (D£o 

zitmrn (6-39) fc±oT«ean*w«ct?^ 

[0 15 4] k=0, '".d-UU $& 627 — 

- £t&£» — 628 — a? 

*ir-r^o 630 

hjis^otimwm — 629 — 5 ic£ 

&$*l£o 632 5 fcrT^TO 631- 

— fcOHTBMff 633 ©«B* Biff 634— 

-tCioT^^n^c 636 T&£<£5 

&"T^TCD 635 iCO^TtWffi 637 tf)fg 

B> Biff 638 ^ctoT^A^n^o fcjgb 6 

39 T&5o 

[0 15 5] S4»S#aSt (6-28) taffltWoW 

#@5t (6-28) B, *©-^»it 

K«tt**j*;&n*. fcbm^ — 640 — (c, 

#3l*ft*A"r*a:, a&*##S£ (6-28) B 64 

1 OJzSfcfrflJSETa^ftS. ^iT 642 

B, ftjesnfeWF^WKLfc^oTft-ORft 645 

OtcStUXt^ >^U -^n^bTC 646 £ 

644 \Zttfo-?Z>ff^>7 bA 643 V$mm\ 

m& — 647 — \z-o^x<D u smm 40 

fr-3\r B3*C©*5fc««-ce*. Biff (6-2 ) £ (6- 
22) B, T^TOtc 648 B i i 1 1 1 MBBrC 

— 649 — <h J&7Zr-%mz&$iT2 

I '2 fcS^Bfebia =i '2 "C*oii 
> i ' 1 7C 650 Btc 651 CO 

[0 15 6] HOI 656 OTRfiShScfcSfc, ff 

m 652 Bff3W 653 <D*fftSBT&££:b 

ffm — 654 — \mm — 655 — <»im so 
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nmr&zttz. *o?2>tm&mB%m3: (e-28) 

B 657 btoSmttWL*. 

[0 15 7] 658 BHff 659 \Z&vT 

fe&znzttfiftmr&zt-r zt, — 660- 

— jWWBStl*. 661 BHff 662 fc«fc 

b)i — 663 — omsakm^ma (7-3 ) ©Haw? 

m 664 ±T£*&**Sft*fcStt. ^bTfc 

b*»<Z>^ HI, 665 jWtMO©^ HA 66 

6 — th#* a &£«**a£ (7-3 

) B*»©^h^ 667 fcHbTTE©*ft 

UMJm* 668 tfcZ>* 

[0 15 8] 669 BHff 670 <D£o\Z 

£«ahSfrWT**fcb-:fr. 671 BHff- 

--672- — \z&->T$xt>nz>*9 

t* TE©»*WE«ttft*oTaA»»*»a (6-2 

8) <m\ztt?%iEmmz®z>zttfTZz><> 
[0159] xftntorsa (7-7 > ©*K*rr*«H 

iSfifi — 673 Btfnfc*ofc<*b<r»£}g«3n 

*. T^TOn = 0, 1, • • • IcHLTififfiMB 67 

4 BHff 676 <D£o\Zft$im 675 

(7-7 ) ©#tC#r*«£feiEfi« 677 

**T?»*&n*. X£fltig£S£ (6-28) (DMlzM? 
Zft&m 678 B> Hff 679 lC<fcoT5£ 

[oi6o] m*#>K&m (7-10) ©tt«B, s*«e 

^>c ^SSfBmtC-r^fcfttr, TI2<D^iB 680 — 

£&5o *3-r*.t* (7-10) B- 681- 

— tas, 

[0 16 1] S*WES^ (7-13) OftS<8^«SJD 

<«uv>fl»fift(atiE>*-^Hf0^ettft. -tft*6-r 

^TCOn = 0, 1, • • • t»bTTE©SII[*JH 

682 timftZtlZ. :^«»p D tr. BP^ — 

-683 K<koT^£n£ 0 fib 684 

685 

686 Tfc£o 

[0 16 2] ftfifltftttB. KWBtZ 687 

-rzttfr*&. zzrm&a* \m% a-m <z>&5 

fC£g$tl#-^ ^^h^Po , q. BHff (7-17) 

\z&?T$?Lt>nz>. 

[0163] *xnafljRnftmM£*»?B. 

$}temmmmmmi"<)i<mz2.o t ^3 b 

tfttbtlfc. 9ja«H«»ff«03&J«ton&. Hff (6- 
9 ) > (6-10) \zmtl% iE^S&^&k' B4£3?b< — 

Mff (6-20) , (6-21) \zmtiziE<D&&fem n 

B2fc«bK dtlSOffS^^T, *»^B#SC0S 
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[oi6 4] *%®<D&<<Dftmtm&\t, ffafttttt 
mmmftzwzfrv&Q. fr<i>T&tc*%mzttmo 

[o i e 5] a*. WMewfcJSiAT — &^ — bk 
[Na>ffi*ftKH] 

Ml] W«»«o*5»#tlWo*ao»JWI«* 

[H2] nn*>titiE>ftA»f»&3KiBa>ftA«E)»«N«e 

^T0-c<&£o a? 

[04] ^S^oSSS^t^lS^&iCo^iSBiffi^ 
^T0"C&5o 

[0 5] wmm*<D&&mt&&<D&j:<D*im%* 

^*r0Ta&5„ 

[06] n«<4>0»»9&IIIBC!)ft£tiE)»«||ftfi 

[0 7] «»*4>o«^»^2:ftlB«>ft£fiE>jtt«Hft« 

^*T0T^5o 30 

[0 8] mn*4>a)ftA»9£:XBoftAo»enffft 

^T0T&£ o 

[0 9] nMtt4>o|»»9^»oftAO#«9M« 

^-T0"C*^ o 

[0103 wmm*Q9&ttt&mo&&oxiM# 

£^*r0T&£„ 

[011] ^JfflS*^S*#^i:^IS<7)aS;co»*H^ 
£7K*f0T&£o 

[01 2] 93^S^cZ)SS##i:^ISoSSco^*M^ 
S»THT»*. 40 
[01 3] ^]fflS*^SiC#^^^B^SSco^*H^ 

[014] mmm+<o*3ttt*nv9&mmk 

[01 5] 9MIS4>ti!>ftA»«£:«Ka>ft3Ca)ttlKmR 

Sr^-T0Ta5S a 

[016] ^SBS^<7)&iC#^^*JSo*Sco»*li^ 

[017] wm®*<D&&m£mm<D&* l <Dttm®& l 
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[018] naftfasticrafc&Raraottj&M 
[019] mmm+o&itttxtkQm&a>tt&n* 

[0 2 0] ^S+OSS#^t^BcoSS^>SH« 

[02 1] nffl*4>a>ftA»#^%IBa)ftAa>jt»«;Blff 

&;*T0T&5. 

[0 2 2] M«l»*©»S»«fcS6IR©»aC«)»J6M« 

&^-f0T&£. 

[0 2 3] ^fflS+O»SS#i:^S©»SCO»*0lft 
[0 2 4] ^ffl§4>coaS:S^t^BR©SSCo^«:Hff 

[0 2 5] naft4>a>ft^#9&«IKoftA^«BM 

£t*T0T&5. 

[02 6] ^fflS*co»SS^i:llfiS©aSco»«:g|« 
£^f0T&5. 

[027] ®mm*v>&jZ&n£mmv>&3:(Dti&m& 

[028] nnfffoi^wi^&ftiRoftAottJsim 

s^-r0TS^, 

[02 9] n«*4>oftA>92:«IBa>ftAti!)»eHft 

[030] nnff>t>oKA»#j:«iBoftAa>Mi&mii 

£7*-r0T&£. 

[03 1] M»»*©*S»#i*IRO*SC«)#«BI* 
[0 3 2] a«ft«t>OftAS«&$»Oft3CtiE>»«Hft 
[03 3] 9)m4>a>ftj»9&«IBeE)ftAa>»eBMB 
[03 4] nflff4>®ftAV»2:«IBOftA<Ott«mi( 
[03 5] nflff^Oft^M&^ROlcA^JKRHIl 
[03 6] ^aig+©SiE:#^i:^fi8o»Sc0^*Bi« 

[037] nn«r4>oRA»^&«BojKA^«Hft 
[03 8] nn*4>o«dc»f»&«BcDft3C<oM«nff 

[039] wmm*<D&&^£m&<D&js:<Dtt&mB 

[04 0] nflS4>0>ftAft#i:IIIRfi!)ftAa>»«BM 

£^r0T&&., 

[04 1] 9in*4>«>ftj»«2:3mfiE)ftAtiD#«Hff 

[04 2] *38WOA-F^X7«l8R**«^TV^ 
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41 

[04 3] »«JaS^KO-^»g$0»UTl^0 
TifcSo 

[04 4] »«ffla©H©-*5c««*ai^T^*HT 

&So 

[04 5] **Mfc*»aJHI©^OyirHT*a. 
[04 6] f^/VJf^ -**WM»ra*Ba»bT 

^S7D-3 L *-hT&So 

[047] *mi*mffi*z>it#>oyu-?-*-YT:$> 
So ;i©7n-?*-M4, cm^T^tifcy-xn 

T?8K^>V-f ZU-sTsTkOS parcl03>t!a 
[04 8] *»W**!WS&»®7n-**-hT?» 

So 

[04 9] *5BWft*!ST*&ft®7n-y*-hT?* 

So 

[05 0] *«W£*Jfrr*&»®7n-?*-h'C» 
[0 5 1] *KM^HIS1-Sfc86<7)7D-^v-hTfe 

So 

[05 2] *«W**Mrt-§fca6©7n-y^-hT* 

So 

[05 3] *BWfc*lW*fc»®7n-yir-h-e* 

So 

[0 5 4] *»WSS8«'TSfca&©7n-^^-hT* 

So 

[05 5] *«W**«f*fca&©7n-g i ir-hT?* 

So 59 

[05 6] *»W**«"rs&»©7n-?^-hT» 

So 

[05 7] *^^SfifS^i«)a)7D-5 1 V-hT& 

So 

[05 8] *a?g^S6-rS^feCD7n-5 1 ^-hT^ 

So 

[05 9] *K^$*Jfi-rSfc86©7D-^^-hTS 

So 

[06 0]-*«IB**lS-rsfca6©7n-y^-hT?* 

So 40 

[06 1] *»w*aa«-«fc»o7D-9 i ^-h'c* 

So 

[06 2] *»wtjwirr*fca6©7D-y^--hr» 

So 

[06 3] *«W**K-r*fc»©7n-^^-hT»* 

So 

[06 4] #BWft*«T*fc»07B-y*-hT?* 

So 

[06 5] *«M**JS-rs&»07n-9 L ^-hT» 
So 50 
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[06 6] *385BS*l*"rs&*©7n-?ir-h"Cft 
S. 

[06 7] *«9!ftSBS-rs&ft©7D-9 1 v-h^* 

So 

[06 8] *3BWS^T*ftA©7a-^*-h'C* 

So 

[06 9] *«M**lW-Sfc«6©7n-5 L Ar-h % C* 

So 

[0 7 0] *«98S*M1-Sfcft©7n-^ir-hr* 
S. 

[07 1] *58?!*««'rsfc«6©7a-^^-h"C* 

So 

[07 2] *56WS««"rs«:»©7n-^ir-hr* 

So 

[0 7 3] *^W^Jfi1 _ S^*©7n-5 l A'-hr* 

So 

[0 7 4] *m\*%M'th1t$)V>7U-**-V'V$> 

So 

[0 7 5] *»Wft*)K1-S&«&07n-^^-hT?* 

So 

[07 6] *mi*Wfr*1t1bO>yu-**-YT*9> 

So 

[07 7] *§f8WS*«S , rSfc»©7n-^^-h-C* 

So 

[07 8] *58B**K1"S&a6©7n-5 l ir-h'C* 

So 

[0 7 9] *58W*S8H , fS&»©7n-^+-h"e» 

So 

[08 0] *^$HSg-rsfcfi6©7n-9 1 ^-hT^ 

So 

[08 1] *«W**«-rs&aft©7n-5 1 ir-h ,, e* 

So 

[0 8 2] *»WSjHi-rs/t«&©7n-^-v-hT* 

So 

[08 3] *5BW£^r*fc»07n-^*-hTS 

So 

[08 4] *58W*^i-*fc»©7n-^-hT* 

So 

[0 8 5] *^M^J£-rs^«6cD7n-9 1 v-h*Cfe 

So 

[08 6] *5BWt«l«-*&a&©7n-?ir-hT» 

So 

[08 7] *»W*j63« , r*fc»©7n-9 1 ir-h , r* 

So 

[0 8 8] *5M**«t"*fc»©7n-**-hT'* 

So 

[08 9] *58Mft«K , rSfc*©7n-yir-h-p» 

So 

[09 0] *»M*S«W*fc»07n-?+-h-c* 

So 
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43 

[09 1] *%^&mS"r-5fe*©7D-^^-hT& 
5o 

[09 2] *&E££^5fc£<07D-^*-hTfe 

So 

[09 3] *%W%mm-r%tz#><Dyu-?*-br& 

So 

[09 4] *5ffl«*IK"*&*07n-?ir-hT* 

So 

[09 5] *^^S61-Sfc86«7n-^v-hTfe 
So 

[09 6] *»«*jaKr*ft»07n-y*-h-e* 

So 

[09 7] *f£E££lfi?-Sfc&<D7a-^-hTfc 

So 

[09 8] *»MeSMtr*fc»©7n-9 t ^-hT?* 

So 

[09 9] *58W*Stttr-5fc*©7n-?ir-hT* 

So 

[010 0] *«Mt*JW«&»©7D-^ir-hTr 

&s, a? 

[010 1] iMSWfc^^Sfcfc^D-^-hT? 

[0102] *%w*%ffitz>tctboya-Tv-'br 
&s 0 

[010 3] *«W&jaW-5&J&<Z>7D-^ir-hT 

&So 

[0104] *aM&*«-r-&&8607n-^-M? 

a&So 

[010 5] *»W&*^*fc»07n-?*-hT! 
&So - 50 

[010 6] *^^Sfi'TSfeJe)07D-5 1 ^-hT 

i&So 

[010 7] S£S£)07D-:Py-KT 
#&S« 

[010 8] *»WS*«"r*&«>07n-^-hT? 



[04 2] 











*>5 
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&S, 

io 

12 x-f^-Ylf- 
14 3>lfa-*- 
1 6 S*KB 
2 0 ®3S 
2 2 *|HBfll 
2 4, 2 6 @& 

2 8 ^V)V^1t\m 

3 0, 3 2 -*yn^ 
3 8 

5 0 ir^^JWMI 

52 tE?+i?9)mm 

54 £fflftm®#&erattJ: 

5 6,5 8 *R8x^ U 5r-f • ^£ h;M§ 
<fc 

6 0 ^fflH«a>ffiWt^>^-i/-x 

6 2 Jtfr«B* 

7 o (ffBx^xAUx^ • ^ hjv&owmm&m 
7 2 7-f;^y >^nfcB»;t>H©«t7-f^ 

7 4 +Kx^X/tUT-^ • ^ h^SoflHHHK&tt 

7 6 mttmfima&mi&t* 

7 8 Sfi«nSrSA6ff»- 

8 0 Waoa*fcBk»*n&*IB7 ! ^X/^U'r-f • ^ 
8 2 *«»i«©afTV^ 

8 4 MMftae 75 ? FflMMf ^**6*a*» 



[04 3] 




32 
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[01] 

1 : <(0'(x,y,t k ), fi(t k )) |(x,y)en,a<[l,o»]} 

2 : It" /t" k ..} 

3: TU+)-fffi(x,y,t)Wx,y,t)dxdydt. (2-1) 

4 : (r ( UeS) 

5 : M(t)<=R a 

6 : (x,,y,,t»)eM(t) 

8 : B b B(M) 

9 : ^W-J^nU^.^Wx^y^c^dii (2-2) 

10: <r„|„«H) 
1 1 : gft>*v« 

^ 2 • ff«**tnr* a t 

13: i*.y* t) ■ 

14: As U<, XJicS, t?€H} 

15 : Mg<A> a (% > xr% l y#%,ti^,x#m l?(y( 3n IJ)t |£c3 / neH} 

m dx°**dy a *'dt*<-' * <jS 1 dx^-'By^-'Bt^ 1 

(2-3) 

I 7 : <r B(i ,|A€A> 
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[02] 



1 8 : 


♦«♦(»») 


1 9 : 


n c r 2 


2 0 : 




2 1 : 




2 2 : 


♦%, y ,t«« (R 3 ) 


2 3 : 


*x.y.t(**.P» f) < <*-*> /o, <?-y) /o, (C-t) /o) , 






2 4 : 


r a(+%.y.t) 


2 5 : 


g° 


2 6 : 




2 7 : 


tV y , t €*(R»> 


2 8 : 


r fl(^».y.t) 


2 9 : 


g°(x,y,t), geG 


3 0 : 


g*(x,y,t)e{g°(x,y,t) |geG>, <x,y f t)en*T, ae[l,») 


3 1 : 


<7C[1,«) 


3 2 : 


g*(x,y,t), (x,y,t)«n*T 


3 3 : 


<g"(x,y,t) 1 <x,y) en> 


3 4 : 




3 5 : 


(9"(*/y,t) | (x,y) en> 


36 : 


(9"(x,y,t) | (x,y)en,<r«[i,«>) > 


3 7 : 


«°(x,y,t) 


3 8 : 


g° (x,y,t), g£G 
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[S3] 



39 
4 0 
4 1. 
42 
4 3 
4 4 

4 5 



g*(x,y.t) 

g, 0 (x,y,t)s<g/(x,y,t) |geG>, qf(x.y,t.)m[qflx.y t t) |g€G) 
gx"(x,y,t), g/(x,y,t), g«G 
(x,y,t) enxT, o«Cl,«) 

r ff (^. y . t ),r ? (^-^ y . c > 



<t-t)/o), (x,y,t)€R\ 

4 7 1 ■^♦5.r.e<*^» 2) S "^V <*-*>/o. <y-y) /o, 
<£-C)/o), (*,.?, t)€* s , 

4 8 : t-Af ,t,t+At*«R 

4 g . <x(t-At ) ,y(t:-At-) ) cr* 

5 0 :'" (x(t+At*) ,y (t+At*) ) eR 2 
5 I : (x,y)eR 2 

5 2 : (x,y)eR J 
5 3: t«R 

5 4 : <x,y)«n(t,At* ,AV) 



(2-5) 



(2-6) 
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[04] 

55: V(jr,y,e,Afc)- U ^.y.t.Af.Atl, 

0<At"<At 

0<At 4 <At (2-11) 

5 6 : Wix.y, t) *{Ut{x.y,b,Lt\ . 

0<Kt<it (2-12) 

5 7 : ArU,y« i,Afc) 

5 8 : Ui(Jf,y f t) ,v t (x,y f t) , (x,y,t)eR s 

5 9 • tr x (*> «///u x (x. y, e) ♦(x.y. 0 djeefydt, (2-13) 

6 0 : v x (*) =///vj(x. y, t) ♦U,y. e) dx<*dt. (2-14) 

6 1 : Cl,-> 

62: («"<x,y,t),v*(x # y,t)) 

6 3 : u°(x.y,t)-±lffu I {St,9,t)l/UZ-x)/<>A?-y)/o, 

(t- 1) /a) dxdfdE. (2-15) 

6 4 : v" (x, y, t) [ j v x (*.y, t) i|r < (f-x) Jo, (y-y) /o , 

"t-t)/a)dxdpdt. (2-16) 

6 5 : (u°(x,y,t) ,v»(x,y,t)) 

66: v*(x,y,t) 

6 7 : v"(t) 

68 . (u'(x,y,t),v»<t)) 

69: ((u°(x,y,t),v°<t)) | (x,y)«n) 

70: <g"(x,y,t) | (x,y)«n> 
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[05] 

<g*<x,y,t) I (x,y)«n> 

{ (uT(x,y,t) ,v*(t) ) I (x,y)€D) 

( <u"(x,y,t) ,v°(t) ) | (x,y)€n,<re[l.oo) > 

{g°(x,y,t) 1 (x,y)en.ae[l,«) ) 

t„' < t,'< ... < t k " 

t k ', k=o, i,...,k' 

{^(x.y,^) | (x,y)en,«7«[l f oo)} k ^- 

{g"(x,y,t) | (x,y) en,ae[l,«o) } 

{ (u°(x,y,t) ,v»(t) ) | (x,y) «n, <x« [!,«>) } 

{ (fi°(x,y,t) ,<P(t) ) | (x # y) €tl,ae [l.co) } 

{ fu°(x f y,t) ,v»(t) ) | (x,y)€il,oell,*>) } 

{g"(x,y, V) | (x,y)en,ae[l,») 

{g*(x f y,t,,') I (x,yj «n,a«ci,«») 

f 3c = 0 ^ X / • • * / K 

<{u°(x,y,t) ,v*(t) ) |-(it,y)cn f -M-[i- ff «)-i 
{ (a°(3c,y, t) ,^(t) ) | (x,y) €n,<7e[i,«) } 
{^(x.y,^) | (x,y)€n r ae[i,«)) M K " 
{ <u a (x,y, t) ,v* (t) ) | <x,y) €fl,ae[l,*) } 
( <u*(x,y,t) ,v*(t) ) | (x,y) efl,<r€[l,co) > 
Kx^y^tJ p rjeH 



[04 5] 



£Sft 



SO 



54 



^ I-** <W|. Vj) 



h*« CU K ' V K> 



58 



.60 



> 2 
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[06] 

9 2 : IJe E{(At "' At * ) KAt-.At*)€R I .At >4f>0, 

9 3: G, a G x p, 

9 4 : g t s (g,Af,At*)eG t ,oe[l,eo) 

9 5 : g,"(x.y.t,tf".V) 

g6 . ffcix.y, t.W.V)s(g«[x*Lt^W{x.y. t),y*Afv*(e),t+At*) 

-g'ix-At'u'ix.y, t) .y-Afv^it) , t-4f))/(Af*Af) , 

(3-2) 

97: (u°,v°) = (u°(x,y,t),v°(t)) 
9 8: gt° 

g g : g t "(x # y,t,u a ,v*) 
10 0: ( u "< x »yrt),v"(t)) 
101 : (a",^) a (a*(x,y,t),^(t)) 
102: (gt(x.y.t.a°.V)) 2 (3-3) 
103: Q- aQr(x f y # t),V ■ D*(t) 
10 4: 9t*(x#y.*ftt'#<H 
10 5: (Af )"- 1 +(Af ) n -' 

10 6: <3 t '(x.Y,t,V.v°) 

10 7: a-,?" 

10 8: (V(x.y,*),Vlt)) 

109 : fffioC*.y.e.fl - .**)flr?U.y.e.O a .»»)-o. 

\gUix.y. t. <J«\ glix.y. t,a". P.') =0, (3-4) 



—817— 



(30) 



1 0 686 



IH7] 



1 1 0 
1 1 1 
1 1 2 
113 
1 1 4 
115 
1 1 6 
1 1 7 
1 1 8 
1 1 9 
12 0 
1 2 1 
122 
12 3 



124 
12 5 
12 6 
I 2 7 
1 2 8 



9 w "(x,y,t.ar,«-) 



(Au°(x,y,1:) ,Av°(t)) 

a a (x,y, t) "u c (x,y, t) +Au°(.*,y, fc> , (3-5) 

?"(t) =V(t) +Av°(t) . (3-6) 

(u°<x,y,t),v°(t)) 

u" a u°(x,y,t) 

v° = v*(t) 

g/Ocyft.uT,*") 

(Au»(x,y,t),Av»(t)) 

<^<x«y, t. u«, v«) ) a Au' U,y, t) +gt»ix,y. t.W. V) 

glrix.y. t. W. v') A v" ( t) +s£,<x,y, t, u°, v«) 
g\(x.y. t.W. v")=0. 

gL (x.y. t. W, V) gZ,ix.y. t. W. V) AW (x.y. t) + 
{glvU.y, t, W. V) ) 2 Av° (C) +gZr(x.y, t, W. V) 
glix.y. t.W.V)=Q. (3-7) 

g tu "(x,y,t,u 0 ,v») 

u a 
v" 
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[08] 

12 9: u" 

13 0: V 

13 1: 9 t °(x,y,t,u°,v») 

132: l&(x>y' t.u'.v") .gtrix.y, t.u'.v") ) (3-8) 

133 : 9Z 1 {x.y,t,WrV)bu°(x.y,t)+gZ r (x.y.z>u'>V)&V(t) + 

gtix.y.t.u'.v')^. (3-9) 

13 4: <u'(x,y,t),V(t)) 

13 5: (flC^y.t),**^)) 

136: (u"(x,y,t),v°(t)) 

13 7: (a°(x,y,t),^(t)) 

13 8: {(u°(x,Y,t),V(t))l <x,y)«n,a€[l,«>) 
1 3 9 : ( (Cf(x,y,t) ,0*(t) ) | <x,y) en,oell t «) > 

14 0: S={ (s„,s y ) | (■ x ,s y )cR > r s/+a y "" 1 > 

14 1: ss(s x/ s y )eS 

14 2: ss( SlI< s y )€S 

14 3: (s,Vu°(x,y,t)) 

144 : (s,Vu°(x,y, t))-(-^.u a (x+us J[ ,y+as y , fc) ) „_<> (3-10) 

14 5. a h ( Sjl ,s y )es 

14 6: (x+us,»y+us y ) 

14 7: (s,Vb°(x,y,t)) 

14 8: <u a (x,y,t) ,v°(t)) 
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[09] 

149: (a°(x,y,t),V(t)) 

150: («.va*U,y,t))«. (3-iD 

15 1 : ((« , (K,y,t),V(t)) | (x r y)€0, «[!,•)} 

152 : <«F(x f y,t) | <x,y)en,ff€[l,«o) ) 

15 3: (u-(x /y/ t),v»(t)) 

154: <fir(x,y r t)/»*<t)) 

155-. (V(^,y,t),V(t)) 

156: (u"<x,y,t),v-<t)) 

15 7: (flr(x,y,t),*"(t)) 

158: (a a (Jf.y,t)-a 0 '(x.y,t)) s (3-12) 

15 9: (P 0 (t)-?o°(t)) a (3-13) 

16 0: <V<x#y#t),V<t>) 
16 1: (u a (x,y,t),V(t)) 

16 2: (tt'^y.t),*'^)) 

1 6 3 : { (u°(x,y , t) ,v»(t) ) I (x,y) «n, « [ } 

164 : {(Q°(x,y,t) f v a (t))|(x / y)«n,ore[l,««»)> 

165: (*,*) ■{(a*<x,y»*),^(t))|(x,y)«Q,ff«[l,«)} 

166: (A,*) ■ ((<i"(x,y,t),^(t)) |(x,y)en,o€[l f »)> 

167: (Au,A\r) ={ (Au°(x,y,t) ,Av°(t) ) | (x,y) ea,?e[l,«) ) 
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[01 0] 

16 8: (W<x.y,t),lV(t)) 

= ( Q' (x, y. t) , <T ( cl) - ( a ' Ix. y.V.Vit)), 
(x,y)«Q,ac[i,») . (4-1) 

169: 30 

17 0: (Aa,Av) 

17 1: an 

17 2: f 

17 3: 

£<fl, fl. w -/ [ // ifo . SaJ e (x, y, t, a 9 , I va« I ) 

1 O O t 

fo.5$l(x.y.t,ll a .V a , is.Va")) (s.Wix.y. t)) a ds+ 
e 0 . Sy u .o ( <2* U,y, t) 'OS ix.y, t) ) 2 ] dxdy+0 . Sy r , 0 

(^(t)~V 0 °(t)) a ]do. < 4 ~ 2 > 

17 4: (*f*J » < a '*> 

17 5: *Z t lx,y. t, a*. V. \Vd'\) , (x.y)eQ,ae [l, «) , g^G,. 

176: u^nx,y r t},^=*Ht) f [TO •|a|W(x,y,t) | 

177 : /3, < '(x,y,t,u 0 ,v o ,(s,W a )) / (x l y)en,<T€[l,«>},S6S 

178: fiW(x,y,t),^a<> a (t),(s,W') s(s,W(x,y,tD 

17 9: |TO'(x,y,t) | , (x,y)«n,ffe{l,*) 

18 0: VCHx,y,t) 
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[011] 



18 1: 




18 2: 


G a (x,y,t) 


183 : 


<s,Wi 0 <x,y,t)),(s,W<x,y,t)), (x,y) £tl,0€[l,«o) ,ses 


184 : 




18 5: 


V(x.y.t).V(t) 


18 6: 




187: 




18 8: 


fa.*) 


18 9: 


(u,v) 


190: 


£<*,*,<»,*) 


19 1: 




192: 




19 3: 


t (fl,?,flH-Afi,*+A'5') 


19 4: 


(A4,Av) 


19 5: 


(fi,v) 


19 6: 


f ( u, v , u+ Au , v+A v) 


19 7: 


(u,v) 


19 8: 


(Au r Av) 


19 9: 


(ft,*) 


2 0 0: 


(A1i,Av) 
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Ml 2] 

20 1: f Au,v+Av) 
2 0 2: (Au,A*) 

2 0 3: 

2 0 4 : /«J.U.y. t.a 8 ,*", |va«|)y e ' a (x,y, t,a«,i^) 

/(s. V(p;u,y. t, a'. V. Is.Va-) ) {s. VO« (x,y, t) ) ) ) ds+ 

s 

Y u . 0 (a"(x.y. t) -0,,'Oe.y, t) ) -0, (4-4) 
2 05 : ffj*% t {x,y,t,a\ir.\V(l<>\)gU(x,y,t.a\V°)gi 

(x.y. t, a', 9") dg t dxdy+v v . 0 W It) -Vf 1 1) ) =0. 

2 0 6: 

2 0 7: 

2 0 8: 

2 0 9: 

2 10: %M 

2 11: 

2 12: 

2 13: ^# 

2 14: 

2 15: 
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im 3i 



2 16: 
217: 
2 18: 

2 19: 
220 : 

22 1: 

22 2: 

223 : 

22 4: 

225 : 

226 : 
2 2 7: 
228 : 
2 2 9: 
2 3 0 : 



0* ■ a*<x,y,t) 

V° m V°(t) 

{ (tt°(x,y f t) ,0-<t) ) | (x,y) en,o€[l,«) } 

0» ... _ . - . 



(s,Va a (x,y. t))*ds+ 
0 . Sy u , 0 ( Q" (x, y, t) -0? (x, y, t) ) a ] dxdy* 




Jo.ep2<x,y, t.V.V. (s.Va*)) 



0.5y„, 0 (P 9 (C> -<tf(t> )*]<*>. 



(4-5) 



-824- 



(37) 



#Bi¥7-2 1 0 6 8 6 



[014] 



2 3 1: 


{ (V(*,y t t) ,«*(t) ) | (x,y) en,ffe[i,«o) > 


2 3 2 : 


* gt m {x,y.t.V.l'. |W|),g t «G t 


2 3 3: 




2 34: 


g t '(x,y,t,Q',*«) 


2 3 5: 


^ 0 (x,y.t,^^.(a,^a')) 


2 3 6: 


(s,Vtt»(x,y,t)) 


2 3 7: 


(s,W<x,y f t)) 


2 3 8: 


fx-At H°(x,y,t) ,y-At <T(t) ) 


2 3 9: 


<x+At*ii»(x,y,t),y+AtV(t)) 


240 : 




2 4 1: 


(x - Ata'(x,y ( t),y-At^(t)) 


2 4 2: 


( x+At*<l' (x , y , t) , y+Af (t) ) 


2 4 3: 


(Au a (x,y,t),Av"(t)) 


24 4 : 


<x-Af (Q"(x,y,t)+Aa fl (x,y,t)),y-Af («*(t)+M*(t) ) ) 


2 4 5 : 


(x+At*(a"(x,y,t)+Au 0 (x f y,t) ) ,y+At*(^(t)+AV (t) > ) 


2 4 6: 


(AO-(x,y.t),W(tn 


2 4 7: 


(x-Af <u"(x,y, t) -Au»(x,y,t) ) ,y-At" (**(t) -A\P (t) ) > 


2 4 8: 


{x+At + (OT(x,y,t)-Ail , '(x,y,t)),y+At*(^(t)-AV(t))) 


2 4 9: 


(g« a (x,y,t,a",«-)) , r g , €C t 


2 5 0: 


( g x " < x , y , t , Q a + Aft" , ^+Av*) ) 2 , g t eG t 



-825- 



1 0 6 8 6 



Ml 5] 

25 1 : l<3S(x,y.t.ii a -li!!'.ir-Mi a )) 2 / g t cG t 
252 : 

(g? ix.y. t. a°+&a°, ) 2 + 
igUx.y. t, a«-Aa«, fr'-Atf') ) a -2 (gt u.y. t, a°, ) 2 . <«-«) 
2 5 3: 9t 8 (x,y,t,a',<r) 
2 5 4: u'wi'fx.y.t) 
2 5 5: «W(t) 
2 5 6: 

fftoix.y.t.iiW))* (4-7) 
25 7: gto'fx.y,^*!',^) 
25 8: *t«*(x.y 

25 9: g,*(x,y f t,flr,«*) 

2 6 0: 0" 
2 6 1: 

2 6 2: (Att"<x,y#*)#A9"(t)) 

26 3: (s,V'g t «(x,y,t,<S',S°)),g t eG t 

2 6 4: (s,Vgt(x.y, t.H'.V) ) 's x g^{x,y, t. a', 9') ♦ 

2 6 5 : {(fi , '(x,y,t),V(t)J|(x,y)<n,«[l,«)) 
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[01 6] 



266 : 


|W(x,y,t)| 


267 : 


(s,W(x,y,t)),s«S 


268 : 


g t - (x,y,t,tt',0*) 


269 : 


|TO'(x,y,t)| 


270 : 




27 1: 


<s,W(x.y,*)) 


2 72: 


(s, V'g/Cx^y.t,**, V) ) , g t eG t 


2 7 3: 


(s,W(x,y,t)) , seS 


274 : 


|V&'(x,y,t)| 


2 7 5: 


<6,Vg t «(x,y,t,a\$*)), g t €Gt 


276 : 


«£,<x,y, t, Q'.V*. |Va«|) ^ B €S e 


2 77: 


gt 0 <x,y,t,aV>»> 


2 7 8: 


|TO'(x,y,t>| 


2 7 9: 




2 80: 


^."(x,y,t,u o .-y / (s,7u 0 )) < seS 


28 1: 


(s,W(x,y,t)) 


28 2 : 




2 8 3: 


<s,W<x,y,t)) 


2 84: 


«y e <*,y, t,a«,*,-. |va»|) (^u,y, t.a°.9°) ) 2 , (4-9) 


285 : 


(g t '(x,y,t,ir,tf*))' 
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[017] 

2 8 6: (gt o (x,y,t,u 0 ,v°)) a 

287: PS(*.y. e.a'.Q 9 , (s,va°)) <s,va«(x,y, e) ) 2 <4-io) 
2 8 8. (s,W(x,y,t)) 2 
2 8 9: (s,W(x,y,t)) 2 

2 9 0: 

te?(*,y,t ( a°,? a >) 2 )- 1 , <4-ii) 

2 9 1: 

p;<x,y, t,a», (s,V13')) = 
(a 2 * (c 2 +ib s (x. ^ff? (x,y.t,a°.ir) 2 ) (s,Vu° {x.y, t) ) 2 ) _1 , 

(4-12) 

292: b a (s,V'g t "<x,y,t,u»,v')) 2 

29 3 : Jb a <s.Vsr?<x,y,t,fi-,f))»- 

y bl t {s.Vgl (x.y, t, Q', 9') ) 2 dgr e , (4-13) 

2 9 4: aScM^.^cG,. 

2 9 5 : ( (u"(x,y f t,^(t)) | (x,y)en,ae[l,«o) > 

2 9 6: I (<l*(x,y,t) ,<T(t) ) | (x,y) 6n,a«[i r ») ) 

2 9 7; {(u'(x,y,t) r ^(t)) | (x,y) «n,ce } 

298 : {(«r<x,y,t),«"(t))|(x,y)«n,M[i,«0) 

2 9 9: (*",<>"> 

3 0 0 . {<a«<x,y,t),-0»(t))|(x,y)en,aeci,»)> 
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[HI 8] 

3 0 1. < W<* »y.t) ,V(t| ) | (x,y) eO) 

3 0 2 : 

(ttfOr.y, c) ,<£{e) ) B(a«^«(x,y.t) ,^"*'(t) ) . (x,y)«Q 

(4-14) 

3 0 3 : Y u .o<f , '^y'C)-Oo*<Jf,y.t))»-y u -^a 0 U < y,t). (4-15) 



3 0 4 : Yv.o <** (t) -«£ < t> ) -Y^^° < « < 

3 0 5: Y U -Y U , 0 A<». (4-17) 

3 0 6: Y v s Yv.oA a - (4-18) 

3 0 7 : Y u> o(«"(x,y,t) - a«*(x,y,t)) 

3 0 8 : Yv,o(^(t)-V<t>) 

3 0 9: - Yu ^D«(x.y,t) 

d 



(4-16) 



3 1 0 

3 11 
3 1 2 
3 1 3 
3 1 4 



-Y v ^^(t) 



< (x, y, t, u«, ?V|Va°|) , g£G t 



( 



5. ,, (x,y,t,fl%V,(s f Va')),s6S 
{(a'(x,y,t),^(t)) | (x,y)en,<T€[l,«o) ) 

f sr^U,y > c.g^y g )gg(y,y.^: > Q^y ,, ) dj _ 
l t **+{p*+q*\Va° {x.y, t)I») {glix,y, t.a",^'))* 

(g.Vg'U.y, t)) 



a»+(c»+* a (s.^'flrr<x,y.t.Q' < C")) a ) <s,Va°<x,y. t)) a 
/■ ff srtAx.y. e, q«, ?«) gt U,y, t. o«, v) d9tdxdy 
W, r 3 *lp 3 ^q 2 \va"(x.y,t)\ 2 )(gtix,y,t,a' t ^')) 2 



)ds=0, 



(4-19) 
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3 15 
315-1 

3 16 

3 1 7 



[019] 

o.5Y u , 0 <a ff (x,y,t) - Qo°<*»y»t)) 2 

0.5Y ¥ ,o(^(t) -VW>* 

0 . 57 0 ( Q" <x, y, t) -Q» <x, y, c) Q» <x,y, t) ) 2 



318 : 0.5Yv(^°(t)-^< t )-^^" (t)) 



3 1 9 
3 2 0 
32 1 
3 2 2 
3 2 3 
3 2 4 
3 2 5 



«£ e (x,y, t,Q\ v'. |VC 0 |) ,ff^o e 
fi, 0 (x,Y.t,a a ,-V r (s,VQ°)) f seS 
f<u,v,<k,$) 

■ {(^(x^tK^t)) | (x,y)en,<xeCl,«)> 
(ft,*) e ((fi«(x,y,t),<nt))|(x,y)«n,<T€[l,«>)} 



326 

/- In (r^CP 3 *g a |Va g (x < y # t) |») (gg(x,y,e,a«.Q*)) a ) . 
" ' 2<p J *<r 2 |Va»<x,y, t)| J ) e 



ln(a a +(c a *.b 2 (s,^s£(x,y, t,a°,?°)) 2 ) (s, Vfl'U.y, t) ) 2 ) 



ds 



♦0.5Y u «l o (x.y, t) -a°(x,y. t) -jLa"(x,y, t) )*]dxdy* 



3 2 7 
328 
3 2 9 
330 



o . 5 Yv < 0° ( c) ( t) ( t) ) 2 J do , 

(ft,*) 



(4-20) 
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m2 o] 



33 1: 




332 : 




33 3: 




3 3 4 : 




33 5: 


( fi,*) s { (a°(x,y,t),<0*(t)) J (x,y)en,o«[l,oo) > 


3 3 6: 




33 7 : 




3 3 8 : 


0 i o (x,y,t J u^*^ (s,W) j, s «s 


3 3 9 : 


<Au,Av) = {(Atnx,y,t),Av*(t)) | (x,y) en,o€[l,«) } 


3 4 0 : 




34 1: 


h (u,v,u+Au,v+Av) 


34 2: 


<Att,A*) 


34 3 : 





A(fi, Q+AQ, f-+A?) -2i{u, u, v) » 

2 \ y i <x 2 +(pW 2 |Va 8 <x,y,fc)| 2 ) <g£<x,y,fc,a fl ,? 0 >) 2 > 2 

lSTut*>y* 0*. V) AO« (x,y, t) * 
9U<x,y, t, V) A 9 s ( t) ) l dgr t 

r (a'-Cc'+Jb'^Vg^y, c,a«, )') (a,VO'(x,y, t)) a ) 
+ i (a»+(e»+ii a (x,V^?(x,y,t 1 fl«.^)>») <s,V,a a (x,y, t) )*) 2 

(s,V<A(I 4 (x,y, t))) a ds 
+Y u <Aa a <JC,y, t) )*] dxdy+Y v (A^ c (t) ) J ]da. (4-21) 
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[02 1] 

3 4 4: 9i°<*#y»*#*'.* 0 > 

3 4 5: • 

HffUx.y.t.tl'.V)) 1 

r a*( p a^|Va«(x,y,t) | a ) <^<x,y. CO'. (4-22) 

3 4 6: (<3 x "{x,Y.*;*'.* 0 )) 2 

347 : y/{g' t l x,y, fc,0» ,?«))' 

J ~i (4-23) 

3 4 8: g*(x»y#t f flr,«-) 
3 4 9: g t °(x,y,t,ii',<P) 

35 0: 9to*(x#y»t,ar,«-)/r I 

3 5 1: g t , - (x,y,t f Vs* 

3 5 2: (gt'CX/y.t,^,^")) 8 

352-1 : (gt'Cx.y.t.u"^)) 2 

352-2: r 2 /? 8 + ^|W(x,y ( t)|«| 

3 5 3: gt a <*»y»*« 

3 5 4: (gt 0 (x,y,t,a',V)) J 

35 5 : r*/(P* + q«|W(x,y,t)|«) 

3 5 6: 9t'(*#y»t,(iM-) 

357 : 1 

2Z^p a +<7 a lVa»U,y, C) I* (4-24) 

3 58: (gt*<x»y»t f o # ,«*))" 

359 : *Vtf + ^|W» f y < t)|«) 

360 : iw<x,y,tn 
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[02 2] 


36 1: 


rV(p 2 + cf|V& a <x,y,t)l 2 ) 


362 : 




36 3: 


(fl°(x,y.t>,*°(t)) 


36 4: 


(Q-(x,y,t).V(t)) 


36 5: 


g« - (x,y,*,«',«') 


36 6: 


|TO"(x,y,t)| 


36 7: 


(fl"(x,y,t),«*(t)) 


36 8: 


(s,W(x,y,t)) 


36 9: 





,/ ta, va'U, y.t))* 

a J *(c J *l> J {s,V ? ?(x 1 y ( t,0' ( n) 2 ) <s,ViTU,y, e) ) a (4-25) 

37 0: (s,W(x,y,t)) 8 

3 7 1: ^<g,VO« (x,y, fc))» 

i» • (4-26) 

3 7 2: <s,W(x,y,t)) 
3 7 3: (s,W(x,y,t)| 2 

37 4 : (s,7Q»(x,y,t)) 2 

3 7 5 : a 2 /(c 8 +b 8 (s f V'g t '(x,y,t,G',^)) a ) 

3 7 6: (s,Vu tt (x,y,t)) 

3 7 7: (s,W(x,y # t)) 8 

3 7 8: aV(c 2 +b 2 (s / V'g t 0 (x,y,t,u«,v < ')) 2 ) 

37 9: (s,VQ»(x,y,t)) 

3 8 0: 1 
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[02 3] 

<s,Va*(x,y,t}) 2 

aV<c 2 +^s,V'g t «(x,Y,t,u%^)) 2 ) 

<s,V'g t «(x # y f t,a' # *')) # g t cG t 

a 2 / (a 2 ** 2 { s , V'g t *(x , y , t , u% v*) ) a ) 

(s,V&'(x,y,t)) a 
{s,V&«(x,y,t)) 2 

«* e (*, t, a*, |va*|) ,g£G e 

(s,W(x,y,t)),s€S 
g t 0 (x,y,t,a%sn,g t €G t 

^"(x^,*,**,^, <s,va«) ) ,s€S 

g t *(x,y,t,ii«,v"),g t eG t 
(s,W(x,y,t)),seS 

gt*(x,y r t,Q*,<H,g t eG t 
(s,W(x,y,t)) ,ses 

((u ff (x,y,t),v*<t)) | (x,y)en,ce [!,«)> 
{(u tf (x /y ,t) # V(t)) |(x r y)€n r a€[l,«>)} 



17 1] 



arsdtksp].auu4 = uars +■ (nsp * 1 1 + ksp) * nhv; 
arsdfksp].g4sq = uars + (nsp * 1 1 + ksp) * nhv; 
aisd[kspj.auu5 « uarc 4- (nsp * 12 + ksp) * nhv; 
arsd(kspj.g5sq = uars + (nsp * 12 + ksp) * nhv; 
arsd(ksp].ainv • uars + (nsp * 13 + ksp) * nhv; 
arsdjksp).dusq » uars + (nsp * 13 + ksp) * nhv; 
and [ksp]. cuv 1 « uars + (nsp * L4 4 ksp) * nhv; 

1 

wars = uars + 15 * nsp* nhv; j =0; 
for ( ksp =0; ksp < nsp; ksp+-*- ) 
{ 

for ( i = 0; i < arsd[ksp).cns; i++ ) 
i 

arsd[ksp].wli[i] » wars + (nsc * 0 + j) * nhv, 
arsd[kspi.wl2[i] = wars + (nsc * 1 * j) * nhv; 
arsd[kspl.w21[il = wars + (nsc • 2 + j) * nhv; 
arsd[kspj.w22[i] = wars + (nsc * 3 + j) * nhv; 

) 

} 

work « wars + 4 * nsc * nhv; 
wrkOO - work; work += nhv; 
wrkOl ~ work; work += nhv; 
wrkQ2 = work: work +« nhv; 
wrk03 « work; work +» nhv; 
wrk04 = work; work +« nhv; 
wrk05 = work; work +•= nhv; 
wrk06 » work; work += nhv; 
wrk07 « work; work +» nhv; 
wrkOS « work; work +« nhv; 
wrk09 « work; work += nhv; 
wrklO » work; work nhv; 
wrkll = work; work -t-= nhv; 
wrkl2 = work; work -k= nhv; 
wrkl3 = work; work += nhv; 
wrkl4 = work; work +■« nhv; 
wrk!5 = work; work += nhv; 

wrkl6 = work; work nhv; 

mars = (long *) work; j =0; 
for ( ksp = 0; ksp < nsp; ksp-H- ) 
{ 

for ( i = 0; i < arsd(ksp].cns; i++ ) 
{ 

arsd[ksp].mll[i] = mars + (nsc * 0 + j) * nhv; 
ar5d[ksp].ml2(i] = mars + (nsc * 1 + j) * nhv; 
arsd[ksp].m2 « mars + (nsc * 2 + j) * nhv; 
arsd{k$p].ni22[ij = mars + (nsc * 3 + j) * nhv; 

j++; 

I 

} 

mars +» 4 * nsc * nhv; 
mvOhO « mars; mars += nhv; 
mvphp = mars; mars += nhv; 
mvQhp = mars; mars +« nhv; 
rnvmhp * mars; mars += nhv; 
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[02 4] 



4 0 1: r §U§ldg t 



*q*\VU'>\*) 

fls.v )d s 

J s a 3 +lc 2 +b 2 (s.V§t)*) (s.VU°) 3 
trt § a «&ldg c dxdy _-3 f ... 0 

4 0 2 : 9t°. g»o°. Stw V 

4 0 3: «t"« Qta". St" 

4 04 : (u a (x,y,t),v°(t)) 

405 : (u'(x,y,t),v-(t)) 

4 0 6 : ( (a°(x,y,t) ,^(t) } | (x,y) «n,<je(i,«) } 

407 : {<*'(ae»y#t)#V(t}) | (x,yj en,o=o,, . . . ,a n ) 

4 0 8: 

409: H-,n < 5 ~ 2) 

4 10: Y«*#Y,"#»-»i#-'-/«»n 

4 11: Y„ = Y u a («(^)-«») < 5 - 3 ) 

4 12: Y w - Y/(*(0)-<n < 5_4 > 



4 13: -r„-^ff'U»y»£) 



414 : -^^° (t) 



4 15: _ yo ^L a « (x , y , t) . T ;(fl«(x,y. t) -fl« ( " U,y, t) ) (5-5) 
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[02 5] 

4 16: -^p-U) -*•<•»<*». (5 _ 6) 

417 : {{«"<*# Yft) \(x,y)en,o=ai,...,o B ) 

4 18: . §U§ldg t 

i d r 2 *(p**g J |Va«| l ) i9D* 

fis.V < g ' Vg0) )ds+ 

i a 2 +(e 2 *2> 2 (s,V#) J ) (s,VO") a 

yS(Q°-fl 4<, ' > }=0, 
V<5 r 2 *-<p 2 *tf a |VG«|*) (5-7) 

4 19 : <(fi a{o, Cx,y,t),0«<">(t)) |<x,y)en> 

4 2 0: ( (u°(x,y,t) ,*"(t) ) | (x,y) en) 
421: a <(a"(x,y,t),«-(t))|(x,y)en) 

42 2: (a"(x,y # t),V(t)) 

42 3: r°lV,* e ) m o (5-8) 

4 2 4: («'rv°) 
42 5: ** (o) ) 

42 6 : (ii 4( "^v• ,0, ) 

4 2 7: 

42 8 . (V#V)-l(V(*»y»t) / V(t))|(x # y)€n} 

428-1 : (V. *♦">-(«■,«•) + e(Au 0 ,Av») (5-9) 

428- 2 : 6 

4 2 9: tf**,A«*> a <(Aii 0 (x,y,t),A*«(t))|(x,y)en> 

429- 1 : &e(0,l] 
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(49) 
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[02 6] 

4 3 0: ^°<S) -^(u'+SAS^^+SA* 0 ) VCa'+flAff*', f +55 Av") 

(5-10) 

4 3 1: (Au'.Av*) 

4 3 2: 
4 3 3: 

4 3 4: (V* V) 
4 3 5: < V# V) 

4 3 6: 

4 3 7: (A4%A^> 

4 3 8: 

4 3 9 : V 

4 4 0 • ^•<a < »+Aa«,»'*A^ - )«»r - (a*»v'i-»t7"«i - #> > **Aa o ,Aff') 

(5-11) 

4 4 1: (A«-,A«") 

4 4 2: J*{a°,«",Au a ,Av fl ) 

4 4 3 : »"(u%*») 

4 4 4: J*<fi%*%Afi%Av , '> 

445: J , (fl , ,»*,AiF , ,A#«)«J«(aM^ (Afi',Av"> (S-12) 

4 4 6: (Aft 0 , A**) 

4 4 7: J'W.V) <Afi«,A*«) =-i ,, (a",*°) (5-13) 

4 4 8: < 

4 4 9: « 

4 5 0: <V, V) 
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45 1 

452 
4 5 3 
454 
4 5 5 
456 
4 57 
4 58 
459 

46 0 
46 1 
462 



-/ 



[H2 7] 

J*<u°,v»> 

»• («%«*> 

(Au%Av») 
(Au^Av") 

If 'Au^Ay") 
J^u",*") <Au°,Av°> 
F*(fi%**> 

»/<*•,«•,«•,«■) ,8«[O f lJ 

<fi*,**) 



(5-14) 



g, TO*) 



(5-15) 



4 6 3 
464 
4 6 5 



(G°(x,y,t), **(t)) 
<u"(x,y,t),V(t)) 
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[02 8] 



466 : 




467 : 


(ft"(x,y,t),«*(t)) 


468 : 


(u'(x,y,t) ,v»(t)) 


469 : 




4 7 0: 


<u%v") 


4 7 1: 




4 7 2: 




4 7 3: 




4 7 4: 


K t "(fi a f *') (Afi", A* 9 ) ,0€[O,1] 


4 7 5: 




4 7 6: 




47 7: 




4 7 8: 




47 9 : 




4 80: 




481 : 




4 8 2: 




4 8 3: 


VC«IM*J <Att%A«") ,8e [0.1] 


4 84 : 


(Afi",Av°) 


4 85: 
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[05 1] 



if ( (*<argv[k]+3) — *d') (*(argv[k]44) == V) ) 
{ 

fldt - argv{k]+3; fdt++; 
if(fdt>l> 

fprintf(stdcrT l 'Too many fldt files .\n"); 
cxit(l); 

) 

J else 

if ( (•(argv[k]+3) =* 'm') && (*(argv[k]44) = V) ) 
I 

flmc = argv[k]+5; fmc++; 

if (fimc> 1 ) 

( 

fprintfCstderr/Too many flmc fi]es>n"); 
cxit(l); 

) 

] else 

if ( (*(argvlkl43) — Y) (*(argv[k]+4) V) ) 
I 

fipc = argv[k]i-5; fpc++; 

if (fpc>l> 

{ 

fprintf<stdcrr/Too many flpc filesAn"); 
exit(l); 

> 

) else 

fprintf(stderr, *VX)7The parameter %s n , argv[k]); 
fyrincf($tderT, n is not fecognizableAn"); 
cxit(l); 

) 

1 else 

if ( (*<argv[k]) = && <*(argv[k)H) = V) ) 
{ 

if ( (*(argv[k]+2) s 'm') && (♦(argv[k}+3) == V) ) 
( 

if ( sficanf(argv[kl, "-irac%d\ &imc) != 1 ) 
{ 

fpiintf(stderr/M)07Can't read <&s\ argvfk]); 
fj>iintf(stderr," it must be -imc<long>\jT); 
cxit(lX 

) 

1 else 

if ( (*(argv[k]+2) = *p') && (*{argv[k]+3) = 'c') ) 
{ 

if ( sscanf(argv[k], ,, -ipc l fcd H , &ipc) != 1 ) 
( 

fprintfCstderr.NXWCan't read %s H , argvfk]); 
fprintf(stdcrr/ it must be -ipc<long>\iT); 
cxit(l); 

I 

}clsc 

if ( C(argv(k]+2) =^= Y> (*(argv{k]+3) = V) ) 
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[02 9] 

4 8 6: <a°/**) 

4 8 7: 

4 8 8: (*"»**) 

4 8 9: <fi%**) 

49 0: h(u" f v" r u*+»Aa ,, ,« a *oA«*) 

49 1: -r <, (fi 0 ,v°) , lr , (C",^ ,, ) H1 Jf"(fl*,^") (5-16) 

4 9 2: lT<w w ,v*> <Afi" f Av") 

4 9 3: K°(u%v») <Au°,Av") 

4 9 4: J' <AQ',A«°) 

4 9 5: F"<fi%?*> 

4 9 6: K/<u%v*) (Au-,Av-) 

4 9 7: tfivr,V) (Au'/Av*) 

4 9 8: iClu',*") Uu%Av*> 



499 



«« . <? a *.<P a *ff , .rW".l a > <_#)') 2 ~ 
i <a 3 +(c J *2> J <s,V#?) 2 ) (s,Vfl a ) a ) s 

/ (s, V ( ^ Vg "^ ) ds- 

Y S(a a -a»«"), 

r/- f r^tf^Afl't^n dg e cfrcfy ; 



(5-17) 



5 0 0: (u(x,y,t),*(t)) 
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[H3 0] 

50 1: 

(F»«) (x.y. t) -Fl9 x y , e ) ,Q x , r . e l*.9. t) (x-St.y-9. t-t) . 

(x.9.t)eS?. (6-1) 



5 02 : fffx(x,y,t)dxdydt=>l 



5 03: 



X ix. y, t) (x.y. «////♦ Kit,?, t) dx&db. (x. t, t) eR J 



5 0 4: < t 
5 0 5: (t»„>^- 
5 0 6: t«{t' k } M K ' 
5 0 7: V<r<*X> 

5 0 8: R a <H.'.xXa> ^(x'.y / ) \ (x',y') -iX^iXa^.i^ 

(6-2) 



5 09 
5 10 
5 11 
512 
5 1 3 
5 1 4 
5 1 5 
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[03 1] 

5 16: V»?eH 

5 17: r <( , 

5 18: Y, 

519: r t<<I («) a EEL Y«<*,y,t)*(x,y,t> . 

(6-3) 

5 2 0: r,„ 
5 2 1 : Y« 

52 2 : r, (l W.j;j;jT n U.y.t)*(x.y,t) 

(jt.K, e)«J! J 

(A.'.i.il.'.a)^^)^. (6-4) 
5 2 3: * ■ (A 4 ,A|CeS,tj€H} 

5 24 : »bm) ■ (^ (|a .% l y.^ lt ,^ l ,.Vy' a| l |.tM eS ' 1 >' B > 
5 2 5: r 0>o 
5 2 6: r flia 

5 2 7: 

(6-5) 

5 2 8: ?g,X 

5 2 9 : ^OVi.hVsl.f - ff O ' 9 i'«>*'0 n 
5 30 : h' c>l , h' Cif 
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[032] 

531: t<.i'<.a> c *" e * a <^..i^a) <«-«> 

5 32 : hVt« h '«o.a 

5 3 3: A. t .i'Ai t ,a 

5 34: ^rO.Sld^., (6-7) 

5 35: ^.-o.stt^i-H^..) < 6 " 8 > 

5 3 6: 

5 3 7 : t€{t» lt } 1( ^ 

5 38: «*(x«y»t) 

5 3 9: t) ,g/(x,y,t) 

5 40 : n"(»Vw»»"^)«^(fcVi' h Vf) 

5 4 1: h Vi< h ".,2 

5 4 2: *Vi-*^.t (6 " 9) 

5 4 3: («-l0) 

5 44: 0"(h"«.„h-. ia )cR« 

5 45 ; • 
Q'(^.i^%.a)- :i . 8| ^ |:i . 8 f(x,y) + 6 1 i 1 V 1 *e a JiV 1 |U,y)€Q} 

(6-11) 

5 4 6: q"(x jy ,t) 

5 4 7: g°<x,y,t) 

5 4 8: r f> .(* 11(yit -) 

5 4 9: r Qia 

5 5 0: 
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[S3 3] 

5 5 1: 9K°<x,y,t) ,g/(x,y,t) 
5 5 2: «/(x.y,t) ,g/(x,y,t) 

55 3 : 9"(*,y,t) 

5 54: r y . 9 (^-^ e ),r ff . 8 (|-«. y . e ) 
5 5 5: r n.« 

5 5 6 : i«.r..^*ir. -•<*»)• 

5 5 7: (x,y) = (V6 1 )ii%^(i 2 *e j )h% (a . (6-12) 

5 5 8: 9*(x»y^) 

5 59 : 9x°(x / y,t) < g/(x,y,tJ 

5 6 0: 

S°(x,y. t) =(l-6 2 ) ( «'{aci. 1 .y 1 . I # O + fli9" (^.i.ri.a' c > ) 

+e 2 ( (i-e t ) flf"u 3>1 ,y 3#1 , t) +e 1 s"(x 2>2 ,y 2 .j, o ) . 

(6-13) 

56 1: 

glix.y, t) -( (i-e 2 ) ( d-e^^x^y^, t) +e l sf.ix l , i .y l .i. t 
♦e a ( (i-e x ) t) +e x oi(x a , a ,y a , a . t> > , 

(6-14) 

5 6 2 : 

♦e 2 ( (l-e^^r^.i'ya.i* c) ^.j'^.j' fc) } * 

(6-15) 

5 6 3: g°(x.y,t) 

5 6 4: g/(x»y,t> rg»"(x,y < t) 

5 6 5 : a»(h». tU h\ 2 )ri#(h\ t .h\ t ) 

5 6 6: i x nr m ^ i 2 AV 2 < fi - 16 > 



—844— 



(57) 



#Bl¥7-2 1 0 6 8 6 



[034] 

56 7: (*.j.yt.a-(ii + l>AVx* ^Vj < 6_17) 
5 6 8: ( ^t»yi.i- *x*..x* Uz+Dh'a.i («-«) 

5 69: (X|.„y lia =(i 1 *i)22' 0 . 1 *(ia*l)iiV» <«~ 19 > 

5 7 0: 

57 1 : A..i-Jc"A-.. t («-20) 
5 7 2: A..,-** A\,, 3 (6-21) 
57 3: n<h, ( i' h ».2> =cn 

57 4: Q(A,. lf ^ 2 >=Qn* 2 <*.,i^-. 2 )- (6 " 22) 

5 7 5: a(h.,„V*) 

5 76 : ((u 0 (x,y,t),v a (t))|(x # y)en(h ff1 ,h 0>2 )} 

577 . {(Aa«(x,y,t),A^(t)) | (x,y) en^,,^) ) 

577-1 : ^(^.irh^) 

578 : J<«,Vf(x.y.t,fl>)ds-£0.5(*,V,f<x P y,t f «)) (6 _ 243 
5 79: tfCh^h^j) 

580 : (s,V/(x,y, t,s))=p J ,(f(x+0.5s Jf( y+0.5s y , t,s) 

-f (x-0.5s x ,y-o.5s y , t,s)) (6-25) 



5 8 1 
582 
583 
5 8 4 



P. 



s ■ (s K ,s y ) 



Do.5(s, V£(x,y, t, s) ) -£ p a £ <x+0 . 5s r ,y+0 . 5s y , t. s) 

stS & 



(6-26) 



5 8 5: P(9t> 
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[03 5] 



586 : 




5 8 7: 


p(g t ) 


5 8 8: 




589 : 




5 9 0: 





592 



5 9 3 
5 94 
5 9 5 



9 j& t r a *(p 2 *qr 2 |Va°| a ) <#?) a 
p p.(3,Vfl°) 

<^.tJife, e r 2 + < p 2 +<r 2 |va«| 2 ) 2 v 

(6-27) 

5 9 1: R«(h.. 1f Va) 



»fe e tr a *(p a *qr»|W| a ) (£ e °) a ) a 



£S (a a +<c 2 +Jb a (£r,V£«) 2 ) (s,VQ 0 ) 2 ) 2 

r 2 +(p 2 +Q- 3 |Va«'| 2 ) (§?) a 
£ . (fl .. fl , w , / 

ih.h^' (r 2 f (p 2 +^|Va<»| 2 ) <#) 2 ) 2 

y»y?y» -9(9j§lv(tt . Y 0(po_.p«t«)) 

( ^.t)ai: e r a +(p a -»g a |Va o | a ) (^ t ") a " 

(6-28) 

(x+0.5s,, f y+0.5s y ,t) 

(x,y) €R a (h al ,h ( , j2 ),teT,so(s J( ,s y )eS 
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[S3 6] 



5 9 6: §t m fft (x,y, t, Q°,V C ) - 



t+At') -g 9 {x-LfQ'ix.y. t) ,y-LfW{t) , 

t-Af))/(At-+Af), (6-29) 



5 9 7: 9tPff*lx.y, c.tt'.V) ■ 

(At*rf(x+Af Q'(x.y,t) ,y+At*?°(t),t+AC*) 
♦A t-g£ (x-Affl* (x,y, O ,y-A t * ( t) , t-A f) ) / 

(At-*At»>. (6-30) 

5 9 8: SlwUix.y. 0'* **> 85 

(AtV/Ue*Affl , (x,y, t) ,y+A t*^»(t) , t+Af) 
"♦At-g;(jc-At-a <, (x,y, C) ,y-A f> - (t) , t-AC) ) / 

(At"+Af). (6-31) 

59 9: IVQ| 2 

6 0 0 : 

|Va»| 2 =|Va«(x,y, e) | 2 «£p,(a»<x*s x ,y*s y , t) -a«(x,y, c) )* (< ._ 32) 

60 1: (s,*u°) 

60 2 : (s.VO'JJ^ts^Va'U+O.Ss^y+O.Ss^.t))- 

p,(fl«(x*s x ,y*s y , t) -fl*<x,y. t> ) . (6-33) 

60 3: <s,V(A<l»)) 

6 04 : ls,V(AU 9 ))*ls l V(A(l'(x+0.Ss J ,,y+0.5Sy,t)))* 

p # (AQ"(x^, y+s,,. t) -AQ c (x,y, t) ) , (6-34) 

6 0 5: b J (s,V'§ t *) a 

6 0 6: 2>»( # ,TO)»-g p(g t >Jbs* (6 . 35) 
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[H3 7] 

6 07: (s. 9.CG, 

6 08 : (a,V f §Z)*=(B,V'gHx+0.Ss x .y+O.Ss y , C.a»,^*)) a » 

( s. Vtf (x. y, t, V . W) ) *♦ ( s. Vgl (x*s x . y*s y , t. a '.9') ) 2 

(6-36) 



6 09: 


(x+s^y+s,,*)) 


6 10: 


(s # V'g t "(ae' f y' r t,iS',v a )) a 


6 1 1 : 




6 12: 




6 13: 


<x,y)«n(lv, f1 ,h 9iJ > 


6 14: 


s ■ < Sj ,,s y )eS 


6 15: 


(x+s„y+s y ) 


6 16: 




6 17: 


(Q»(x+s If y+s y ,t),<r(t)) 


6 18: 


(a a <x,y,t),*"(t)) 


6 19: 




6 2 0 : 


( (<i'<x,y,t) ,^(t) ) | (x,y)«n(h Ci1 ,h, ia ) } 


62 1: 


{ (AO"<x,y,t) ,Av*(t) ) | (x,y) en(h ai1 ,h„ >8 ) ) 


62 2 : 


8 a (S„8 y )eS 


6 2 3: 


P. 


6 2 4: 




625 : 
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[S3 8] 

6 2 6: S«U^. lt -Ao,i»A,.2' "A.** At.i* 4 *,*' 

6 2 7 : {(Q'Mx,y,t)^ , Mt))|(x < y)€fl(h, 1<ll Ji Jl , J )] 

6 2 8: 

6 2 9 : ((a'^U.y,t>.^Me))|U,y>eQ<V 1 ' 1 »V*» ,) 

6 3 0: o k+1 

6 3 1: (^y»«Q<V,.i' i »^-» 

6 32 : u.y>«ocii > ^ 1 .Ji. 4 . a ) 

6 3 3: (fl'"'(x,y, t),? 0 ** (t>) 

6 3 4: <a a ^x,y,t),<>*~(t>)«<fl ,, *(x,y,t),? 9 *<t)) (6-40) 

6 3 5: <x.r>eQ<J| ilM . 1 .lv fc *.i 

6 3 6: (XiylflU^i.Ai^) 

6 3 7: (fl«*« U,y, t) , ( t) ) 

6 3 8: «I"**<x,y, 

£ 0.2S<fl'*U Jt(V y Ji , ij .C).^(t)), (6 . 41) 

6 3 9: (x^.y,^) - <x.y) < 6_42) 

6 4 0: tl(h.,t ( h, (} ) 
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[03 9} 

64 1: ViV.V) (dfi°,Ae") r — (7-1) 

6 4 2: (&G%m T 

6 4 3: (Au-,AV) 

644 : {(Aa w (x,y,t).A«*(t)) | (x.y) endi^,,^) ) 

6 4 5: (Aa"(x,y,t) I (x,y)«n(^ 01 ,h, fa ) } 

6 4 6: 

64 7: 0(h a>1 ,h 0<2 ) 

6 4 8: (x,y)«n(h«,i#Va) 

6 4 9: (x,y) » iA,^^ 

6 50: (*'Y) » i^+i^enCh^^h^a) 

65 1 : (x'/y') = i'^+i'^eaih^.h^) 
6 5 2: D°(ff\v-) 

653 : 

6 54: -B* («*,*») 

6 5 5: ir-(a»,-f ) 

656: iCfCf) =0 , (C,f) -B^C,*') (7-2) 

65 7: (IP {a*,*')-* 0 (£!•,*■)) (A(P,A9*) r =-J*(fi , ,v B ) . (7-3) 
6 58: C°(iir,v*) 

659: C^O 0 ,?") -(I* («»,?•)) 1/2 , (7-4) 

66 0: C (flT. oil" (0MP-). ( 7 ' s > 
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[04 0] 

6 6 I . (Aa',AV) 

6 6 2: (AS»,Av»') r =C"(a',^) (4fl»,AV) T . (7-6) 
6 6 3: (Afi'^v") 

66 4: C"«*Vn- T 
6 6 5: (44°, A*") 

6 6 6: (Atr,AV) 
6 6 7: (40% 4V) 

668 : Wi?,AP). T -ff HP, f") -«»■<«■, f^iPCa".^)- 1 

<AS',A9') T -C"(ff',f)- T f (fl-.f) . (7-7) 

6 6 9: C(fl B ,?') 

670: 0»(a»,f") =C(G», if") -rBFUP.V V)' 1 , (7-8) 

6 7 1: H"«r,*°) 

672: *"(fl"i *") f) -rp* (CP, f); (7-9) 

67 3: (AV.AV) 
67 4 : (Att^A^,*) 
675: (AV.AV) 
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[04 1] 



6 7 6 
6 7 7 
6 7 8 
679 
680 

682 
683 



{ tfZ. x . a^) r -<r ( 0". p) ( as;. T -f (ff\ 

(4u% Av") 

(AO-. A V) T =c- ( V) ( A2J. A vj) T 
WB(A^? / Av») s, . <?»0"<ff».«»). 

•^-p^y,, ♦ (i-y a ) w B )*a-p a ) tr a . t 



684 : « a= <|-^> ni0 , P„" ,**l,P,-0 



685 
686 
687 



x a °Ov B -v a -h,nzO . 



(7-10) 

(7-11) 
(7-12) 
(7-13) 
(7-14) 

(7-15) 

(7-16) 
(7-17) 
(7-18) 
(7-19) 
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[04 6] 



111 



T 



52 



R, 



I 



SO 



"70 



72 



74 



I 



76 
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wl2|ktmp] = tw!2; temp += twl2; mopu +« ml2 ♦ tw!2; 
w21[ktmp) - tw21; temp += tw21; tmpu += tu2l * tw21; 
w22(lctmp] « tw22; temp +« tw22; nnpu +- tu22 ♦ tw22; 
suma[ktxnp] +- temp; 
sroudfktmp] -= temp; 
utvflktmp) +« tmpu; 

} 

sumb[0] IcvObO * wmn; 
smvd[0] -akvOhO * wmn; 
vtvflO] +s kvOhO * wmn * arwi[ksv].wvf[nj; 

rttum(0X 
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tfdcfincOSIZE 10 

tfdefineASlZE 25 

tfdcfinc BANDS 3 

fldefine BUFEL 4000 

#definc$fcfTH 2.0 /* 2.0 •/ 

#define STPD 0.5 

fldcfincSTEP 0.4 

tfdeftrte SGMB 2.25 

^define SGMQ 2.25 

fldefineSGMW 2.25 

#defineRHG 1.0 f* 0.5 V 

define RHX 3.0 /• 0.5 V 

#dcfineDSG 1.0 /* 1.0 */ 

#dcfincMSG 2.0 /• 1.414213562 V 

tlicludc <maih.h> 

#includc <stdioii> 

#include <sys/fUc.h> 

^include "topackagch" 

#include "cQ^_co^slvi^" , 

struct opt.flow [longkuvmlASIZE],kuvp[ASIZE]; 
float *ggm[BANDSJ, *gxm[B ANDSJ, *gym[BANDS], *sxm[BANDS], dhraf ASEE]; 
float *xgm[BANDS], *xxm[BANDSJ, *xym[BANDSl, *syro[BANDS], dvm(AStZE]; 
float *ggp[BANDS], *gxp[BANDS], *gyp[BANDS), *sxp[BANDS], dhpfASIZEJ; 
float *xgp[BANDS], •xxpfBANDS], *xyp[BANDS], *syp[BANDS), dvrfASlZEJ: 
float *fgm, *fgp, dtm[ASrZE], dtcfASIZEl, dtp(ASIZE];) optf, 

struct ars_data (long ens, cnv(ASIZE}; 
long •mll[ASlZE). *m12[ASIZEJ, *m21[ASiZE], *m22(ASIZE]; 
float *wll[ASIZE]. *wl2[ASlZE]. *w21[ASIZE], *w22[ASIZE}; 
float wmn[ASIZE], wxyLASIZE], wuv[ASIZEJ. dlt[ASEE]; 
float *auul, *auu2. *auu3, *auu4. *auu5, *ainv, *bwl; 
float *cuvl, *g2sq, *g3sq, *g4sq, *g5sq, *dusq, *binv; 
float *rucv ( *pucv, *qucv, *zucv, a, b f bsq, c, esq; 
float *rvcv, *pvcv, *qvcv, *zvcv, r, p, psq, q, qsq; 
float *uuvf, *u0vf, *udvf, *utvf, *duvf; 
float *wvf, *vOvf, *vdvf, *vtvf, *dwf;J arsd[ASIZE]; 

double sgms. sgds. sgm = 4.0, sgrob, scln, msg « MSG, set; 
double sgmg. sgdg, sgd - 2.0, sgmq, sgmw, dsg = DSG, two = 2.0; 

float •hvQhO, •wrfcOO, *wrfc01, *wTk02, *wrk03, *wit04, *wric05; 

float *w0h0, *wrk06, *wrk07, *wrk08, *wrk09, ♦wrielO, *wrkli; 

float *wrki2, *wrkl3 t *wrkl4 t »wrfcl5, *wrkl6; 

long *mv0h0, *rnvphp, *rav0hp, *mvmhp, *mvmh0, *mvmhm; 

long *mv0hm, *mvphni ? *mvph0 t *nillp f *m22p; 

long ♦rallm, *ml2m, *m2Im, *m22m, *ml2p, *m21p; 

float gun » 0.001, gul = 0.01, rhg = RHG, isc = 0,05; 

float gvn « 0.001 . gvl » 0.01, rhx = RHX, thrc; 

long kvOhO. kvphp. kvOhp, kvmhp, kvrahO, kvmhm, fcvOhm, kvphra, kvphO; 
long dki = 0. rho = 0, msp = 0, lvs = 0, lev, ksp, nij; 
long dkj = 0,tau = 0, nsp = 0, 1st = 0, nhv. nxy, bns = 0; 

/* The program for estimating the velocity vector fields */ 
/* from a given time-varying image sequence. •/ 



—855— 



(68) 



4$Bi¥7-2 1 0 6 8 6 



[04 9] 



main(argc,argv) 

p **•»»»»•»****»»•**«.»*•» INPUT •**•*•*••****•••••• 

/* nsp « the variable of the integer type, which Is equal to */ 

/* the number of vector fields that are involved in the */ 

/* computation. */ 

/* lv$ = the variable of the integer type, which is equal to •/ 

/* the number of resolution levels that are used in the V 

/* computation. •/ 

P 1st = the variable of the integer type, which is equal to •/ 

/* the resolution level at which the estimation process */ 

/* stops. «y 

/• rho = the variable of the integer type, which is equal to */ 

/* the degree of subsampling of the vclosity vector fields */ 

/* on the finest level of the resolution piramid relative */ 

/* to subsampling of the image functions and their partial */ 

/* derivatives. */ 

f* tau = the variable of the integer type, which is equal to */ 

I* the degree of subsampling of the image functions and ♦/ 

f* their partial derivatives relative to iht sampling of ►/ 

/* the initial image functions. */ 

/* ust « the variable of the float type, which is equal to the */ 

/* x-component of the initial estimate that is used in the */ 

/* computation. */ 

/* vst = the variable of the float type, which is equal to the V 

f* y -component of the initial estimate that b used in the */ 

/* computation. */ 

f* nh a the variable of the integer type, which is equal to ♦/ 

/* the number of vectors along the horizontal direction */ 

I* that are involved in the computation. */ 

/* nv « the variable of the integer type, which is equal to */ 

f* the number of vectors along the vertical direction */ 

/* that are involved in the computation. */ 

/* kx = the variable of the Integer type, which is equal to */ 

/* the number of pixels defining the left and the right •/ 

/* offsets for the image functions and their partial */ 

/* derivatives: the number kx must be a multiple of the */ 

/* number two in the power of: Ivsin the case when the */ 

r number lvsi$ odd, and ivs + 1 in the case when the ♦/ 

/* number Ivs is even. */ 

/* ky = the variable of the integer type, which is equal to */ 

/* the number of pixels defining the lower and the upper */ 

r offsets for the image functions and their partial */ 

/* derivatives; the number ky must be a multiple of the */ 

/* number rwo in the power of: lvs in the case when the */ 

/ number Ivs is odd, and lvs + I in the case when the V 

/ number Ivs is even. */ 

f* nx = the variable of the integer type, which is equal to V 

r the number of vectors along the horizontal direction. */ 

£ ny = the variable of the integer type, which is equal to */ 

r the number of vectors along the vertical direction. */ 

£ sgro = the variable of the type double specifying the value V 

/ of the horizontal component of the sigma factor. V 

/* sgd = the variable of the type double specifying the value */ 

/ of the vertical component of the sigma factor. •/ 

/* msg = the variable of the type double specifying the */ 
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/* multiple change factor for the value of the rignu */ 

/* factor sgro between the resolutions. */ 

/* dsg - the variable of the type double specifying the V 

/* mulciple change factor for the value of (he sigma */ 

/* factor sgd between the resolutions. */ 

/* isc a the variable of the float type specifying the initial */ 

/* image scale factor. •/ 

f* rhg = the variable of the float type specifying .the weight */ 

/* for the opricaJ flow constraints corresponding to the */ 

/* image functions. */ 

/* rhx = the variable of the float rype specifying the weight ♦/ 

f* for the optical flow constraints corresponding to the */ 

/* x-direcdonal partial derivatives of image functions. */ 

/* gun s the variable of the float type specifying the weight */ 

f* for the u-regularizadon constraints appearing in the */ 

/* system of nonlinear equations. */ 

/* gvn = the variable of the float type specifying the weight •/ 

/* for the v-regularization constraints appearing in the V 

I* system of nonlinear equations. */ 

/* gul «= the variable of the float type specifying the weight */ 

/* for the u-regularization constraints appearing in the */ 

/* system of linear equations. */ 

/* gvl = the variable of the float type specifying the weight */ 

/* for the v-regularization constraints appearing in the */ 

f* system of linear equations. */ 

/• rep » the variable of the float type Defining the criterion */ 

/* for termination of nonlinear iterations. */ 

/* fep = the variable of the float type defining the criterion */ 

/* for termination of linear iterations. */ 

/» mxn - the variable of the integer type specifying a maximal */ 

/* number of nonlinear iterations. */ 

/* mxn * the variable of the integer type specifying a maximal */ 

f* number of trials allowed in the attempts of updating a */ 

/* nonlinear iteration. */ 

/* raxl = the variable of the integer type specifying a maximal */ 

/* number of linear iterations. */ 

/* mxs = the variable of the integer type specifying a maximal */ 

/* number of times the linear system solver can be used on */ 

/* each nonlinear iteration. */ 

int argc; 
char *argv[]; 
( 

unsigned char : 

char *fldt, *flmc, *flpc; 

double sqrtOi dtmp, srnip; 

long i, n, nx, Id, ni, dd, mh, itst, nh = 0, kx = 0; 

long j. k, ny, kj, nj, dn, mv, intv, nv = 0, ky = 0; 

long mxn * 0. mxl - 0, iroc « 0, jmc * 0, frnc - 0, fdi « 0; 

long mxu « 0, mxs ■ 0, ipc - 0 Jpc « 0, fpc » 0, ckk, bn; 

float avrgm[ BANDS], *ggg, *ggx, *ggy, *gsx, tm, ust - 0.0, rep « 0.00001. fc fgg, tp; 
float avrgp(BANDS], *gxg, *gxx, *gxy. *gsy, K), vst ~ 0.0 f fep « 0.00001. temp; 
for ( k = I ; k < argc; k++ ). 
[ 

if ( (*(argv[kl) — V) && (♦(argvflcj+l) = T) &&. (*(argv[k]+2) = T) ) 
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fprintfCstdenV it must be .nv<Iong>\n M ); 
cxit(l); 

) 

) 

}else 

if ( (*(argv[k]) — '-') && (*(argv(k]+l) =-T)) 

{ if ( (*<argv[k]+2) = 'v'} && <*(argvfk]+3) = V) ) 

1 if ( S5canf(argv[k], "-lvs%d M . &3vs) !« 1 ) 
{ 

fprintf(stderr,NW7Caa*t read %$". argvfc]); 
fprintf(stden\" it must be -lvs<long>Nn"); 1 
cxit(l); 

) 

] else 

if ( (*(argv[lc]+2) = V) && (»{atgvlIc)+3) «= Y) > 
( 

if { sscanf(axgv[k] ( •Mstfcd", Alst) 1» I ) 
I 

tprinif(siderr. , VX)7Can't read fts\ argv[k]); 
fprintf(stden\ n it must be *lst<long>\n"); 
exit(l); 

) 

i 

} else 

if ( (*(argv(k)) = && (*(argv[k]+l) = Y) ) 
I 

if ( (♦<argv(k]+2> = 'a') && (•(aigv[k]+3) = V) ) 
( 

if ( sscanf(argv[k], "-taufcd", &tau) != 1 ) 
( 

fprintf($td£ir,*VX)7Caii , t read fcs". argv[k3); 
fprintf(stde^;'• it must be -iau<long>V ); 
exit(l); 

} 

} 

)else 

if ( <*(argvpc]) =* v) && (*(argv[k]+l) = V) ) 
{ 

if ( (*(argv[k]+2) = Y) && <*<argv[k]+3) = Y) ) 
{ 

if ( sscanfXargvfk], "-us«W, &ust) 1-1 ) 
( 

fprintf<sufciO007Can'i read argv[kj); 
fprincfCstderr/ it must be -usrcfloaoVT); 
exit(l); 

) 

] . 
) else 

if { (*(argvpc)) — •-') && <*<argv[k)+l) V) ) 

( 

if ( <*(argv(k]+2) = Y) && (*(argv[k]+3) = Y) ) 
[ 

if ( sscanf(argv[k], "-vsiTor . Avst) !« I > 
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( 

fprimf($tderr.*V)07Can , t read %s". argvfk]); 
ff»intf(stdenr i M it must be -vsKfloaoNn"); 
exit(l); 

} 

I 

}clsc 

if ( (*<argv[kl) — •-•) && (*(argv[k]+l) = V) ) 
( 

if(*(argv[kl+2) = V) 
I 

if ( sscanf(argv[k], "-be***. &kx) !» 1 ) 
( 

fprintf (stderr/"N007Can *t read argv(k]); 
fprintf(stden;" it must be -kx<long>\a**); 
exii(l); 

) 

) else 

if(*(B/gv(k]+2)=^y ) 
< 

if ( sscanf(argv[kl, "-ky^d", &ky) != I ) 
( 

fprintf(sidcn/W7Can't read %s*\ argv[k]); 
fprintf(stderr," it must be -ky<long>\n"); 
exit(l); 

) 

) 

}el* 

if ( (*(argv[k]) « '-') && <*(argv[k]+l) — V) ) 

if ( (*(ai£v[k]+2) — V) && (*(argv[k]+3) — V) ) 
{ 

if ( sscanf(argv[k] t M -rti0%d*. &rho) != 1 ) 
( 

fprintf(stdcrT. N \[K)7Can 'tread %s", argvflc]); 
fp^imf(stderr t ,, it must be -rhoclong>\n ); 
exit(l); 

) 

} else 

if ( (*(argv[k]+2) = V) && (*<argv[k]+3) — Y ) ) 

if ( sscanf(argv[k], M .rhg%f t &rhg) != 1 ) 
( 

fprintf(stdcrT/\X37Can*t read %s H , argv[k]); 
fprintf(stdcrr/' it must be -mg<float>\n"); 
odKD: 

) 

) else 

if ( (*(argv[k]+2) = V) && (*(argv[k]+3) — V) ) 

if (sscanf(argv[k], "*fw%f\ &mx) != 1 ) 
( 

fprintf(stdcn,'\X)7Can't read %s\ argv[k]); 
fprintf(stdcrT," it musi be -rhx<float>VO: 
cxit<l); 
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J 

} 

}else 

if ( (*<argv[kj) — v ) <*(argv[kH> = 'g') ) 

1 if ( <*(argv(k]+2) — V) && (*(argv[k]+3) ~ V) ) 

( 

if ( sscaAf(argv{k], "-gun^f, &gun) != 1 ) 
1 

fprintfCstdcrT.'XXnCan't read %s", argv[k]); 
fprimf(stderr." it must be -gun<floacArO; 
cxit(l): 

1 

| else 

if ( (*(argvfk]+2) = V) && (♦(argvfk)+3) =« T) ) 
I 

if ( tscanf(argvlkj, M -gul%r, &gul) != 1 ) 
[ 

fpnnrf(stdcrr, , \)07Caii»t read argvfk]); 
fprintfXstderr/* it must be -gul<floao\ri ); 
cxit(l); 

) 

] else 

if ( (*(argv[k]+2) = V) && (*(argvfk]+3) = V) ) 



I 

if ( sscanf (argvfk], "-gvn%r, &gvn) != 1 ) 
( 

fprintf (stderr/ W7 Can ' t read 9E>s\ argvfk]); . 
fjftintf(&tderr. n it must be -gvn<float>VT); 
exit(l); 

] else 

if ( (*(argv[k]+2) = V) C(argv{k]+3) — V) ) 
( 

if ( sscanf (argvCk], "-gvHbf, Agvi) != 1 ) 
( 

fprintf(stderr,"VX)7 Can't read %s". argvfkl); 
fprintf(stderr," it must be -gvI<noat>Nn**); 
exit(l); 

) 

} 

) else 

if { C(argv[k]) = '-') && (*(argv[k]+l) W) ) 



{ 



I 

if ( sscanf(argv[k), **-mxn%d", &mxn) !» 1 ) 
I 

fprintf (stdcrr/'W7Can , t read %$", argv[kD; 
fprintf (stderr/' it must be -mxn<long>V); 
cxk(l); 

] 

I else 

if ( (*<axgv[k]+2) -x') && (*(argv[k]+3) == V) ) 

[ 



if ( sscanf(argv(kj, "-mxuflW, &roxu) != 1 ) 
( 

fprintf(stderr.*\007Can , t read argvfk]); 
fprinrf(stde^^. ,, it must be -mxu<]ong>\n M ); 
exit(l); 

) 

} else 

if ( (*(argv[k]+2) — V) && <*(argv[k]+3) « T) ) 
{ 

if ( sscanf(ajgv[k), --mxWbd", &mxl) !=* 1 ) 
{ 

fprintf[stderr/V>07Can*t read %s\ argv[k]); 
fprintf(stderr." it must be -mxl<long>\n M ); 
exit(l); 

) 

} dse 

if ( e(argv[kJ+2) = V) && (*(argv[k]+3) = V) ) 
( 

if (sscanf(argv[k] ( "-niwW", taws) !« 1 ) 

fprintffstderr.NXflCarrt read %s", argvfk]); 
fprintf(stdcrr,* it must be -mxs<long>\rO; 

«3tCl)C 

) 

} 



} 

if ( ( f tnc = 1 ) && ( fpc « 1 ) && ( fdt = 1 ) ) 
i 

fprintf(stderr t "fldt - %sW, fldt); fprimf(sidout, "fldt « %s\n", fldt); 

fprintfXstderr, "flmc » %s f irnc = %d, jmc « %d\n*\ flmc, imc, jmc); 

fjnintfCstdout, "flmc « %s t imc » %d, jmc » %dSn"» flmc, imc, jmc); 

fprintfXstderr, "flpc « %s, ipc = %d, jpc = %oNn\ flpc, ipc, jpc); 

rprintf(stdout, "flpc = %$, ipc « %d, jpc = %oV\ flpc, ipc, jpc); 
) else 
{ 

if((mic = 0)) 
I 

fprintf(stderr,The file flmc is not specified. VT); 
exit(l); 



if((fpc — 0)) 



if ( (*(argv[k]+2) = V) (*(aigv[kJ+3) = V) ) 



] 



fprintftetdcrr.The file flpc is not spccified.Nn"); 
exiid); 



) 

jf(gul <gun)gulogun; 
if ( gvl < gvn ) gvl « gvn; 
while ( ( nsp <» 0) II ( nsp > A SIZE ) ) 

if (nsp<«0) 
i 

fprinrfCsidcrr.Thc parameter nsp either has not been servT); 
fprintf(siderr,"or has been set to the wrong value; nsp = "); 
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whUe ( scanf("9W M . &nsp) !« 1 ) 
{ 

fprintf(stderr,'>0O7 Can't read read input for "); 
fprintf{stderr,''nsp please try again; asp -VT); 

} 

) 

if (njp>ASIZE) 
{ 

fprimf(sideiT,Thc parameter nsp has been set to the valucVi"); 
fprintf(stderr, H ihat is greater than the upper limit of theV); 
fprintf(stderCsize AS1ZE of array of structures arsd; nsp = N ); 
while ( scanf("%d". &nsp) != 1 ) 

fprintf(stderr. M N007Can , t read read input for "); 
tyrintf(stderr. M nsp please try again; nsp = W); 

I 

) 

while ( Ivs < 1 ) 
{ 

fprintfXstderx/The parameter Ivs either has not been serNn"); 
fprincf(stdeir "or has been set to the wrong number; Ivs = "]; 
while ( scanfHbd". &lvs) != 1 ) 



( 



fjmmf(stderr/\X)7Can*t read read input for "); 
fpriotf(stderr,"Ivs please try again; Ivs =\n"); 



) 

while ( rho < 1 ) 
{ 

, rprintf(stderr t *The parameter rho either has not been serNn"); 
fprintf(stdcrr J M or has been set to the wrong number, rho = "); 
while ( scanf("%d M , &rho) != I ) 



fprintf(stdcrr. , \X)7Can , t read read input for "); 
fprinrf(stderr,"rho please try again; rho =Nn"); 

) 

while ( tau < 1 ) 
( 

rpnntf(stderr;'The parameter tau either has not been set\n"); 
fprintf(stderr,"or has been set to the wrong number, tau = "); 
while ( 3canfC%d\ &tau) != 1 ) 

fprintf(stderT. , \X)7Can , i read read input for "); 
fprinrf(sideiT,"tau please try again; tau =\n"); 

) 

while ( nh < 1 ) 
{ 

rprintf(stderr, H The parameter nh cither has not been sefVT); 
fprintf(stderr I H or has been set to the wrong number, nh * "); 
while ( scanff %d\ &nh) != 1 ) 

fprintf(stdcrr, ,, NO07Can*t read read input for "); 



fprintf(stderr,'V)07Can , i read %s it \ argv[kl); 
. fprintf(suierr, M rau$t be: -bsp<fioai>Nn w ); 
«dt(l); 

) 

if (<ksp>=0)&&(k5p<nsp)) 

arsd[ksp].b = temp; 
I else if ( k^p = nsp ) 



{ 



for ( ksp » 0; ksp < nsp; ksp++ ) 



arsd[kspl.b = temp; 



ksp = nsp; 

1 

) 

} else 

tf ( (*(argv[kl) =»•-')&& (*(argvfk]+l) V) ) 

if ( (*(argv[k]+2) = V) && <*(argv[k]+3) = 'p') ) 

if ( sscanf(argv(k3. "-rsp%f\ &t«np) != 1 ) 

fprintfTstderr t "\007Can't read %% it M , argvfk]); 
f^rintfXstderr/musi be; -rsp<floar>VT); 
exit(l); 

) 

if ( (ksp>=0 ) &&(ksp <nsp) ) 

arsd[ksp].r - temp; 
} else if (ksp = nsp) 

for (ksp = 0; ksp < nsp; ksp-H- ) 



arsd[ksp]x = temp; 



ksp = nsp; 

J 

}else 

jf ( (*(argvM) '-') && (*(argv[k]+l) « y) ) 
if ( (*(argv[k]i-2) = y) &£ (*(argv[k]+3) = 'p') ) 



if ( sscanf(argv(k). "-psp%r, &temp) Is 1 ) 

n^rintf(stderr f , V)07Can , t read %s it *\ argv(kj); 
fprintfCstdcrr/must be: -psp<floao\n w ); 
cxit(l); 

I 

tf( ( ksp >*» 0 ) &.& ( ksp < nsp ) ) 

and [ksp] . p = temp; 
J else if ( ksp «> nsp) 
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fprimf(stderr,"nh please try again; nh = V); 

) 

} 

while ( nv < 1 ) 
{ 

fprintf(stdcrr/The parameter nv cither has not been seta**); 
fprintf(stdcrr, M of has been set to the wrong number; nv - **); 
while ( scanfC%d\ &nv) != 1 ) 
{ 

rprintfCstdcTT.NXnCaii't read read input for 
fprintf(stdcrr,"nv please try again; nvsNn"); 

. ) 
} 

for ( Ic = 1; k < argc; k-H- ) 
I 

if ( C*(argv[k)) — ) && (♦(argv[k]+l) = 'k') ) 
{ 

if ( (*(argvtk]+2) — 's0 C(argv[k]+3> — 'p') ) 
{ 

if ( sscanfCargvfk], "-kspftd", &ksp) !« 1 ) 
{ 

fprintf(stderr.'\XJ7Can*t read %s\ argvflc)); 
fyrintf (stderr," it must be -ksp<long>Nn w ); 
cxitd); 
) else 

if((ksp<0)ll(ksp>nsp)) 
{ 

fprintf(sidenr t "N007ksp = %& is set to wrong nurnber.vr, ksp); 
exit(l); 

I 

) 

} else 

if ( <*(ajgvfk]) — •-•) && (*(argv[k]+l) == V) ) 
I 

if ( (*(argv[lcJ+2) = V) <fc& (*(argv[k]+3) Y) ) 
{ 

if ( sscanf(argv[k], "-cns%d", Aintv) !■ l ) 
{ 

t>rintf(6tdefT ( "S007Can T t read %s", argvfk}); 
fprintf(stderr,", it must be: -cns<long>\n M ); 
cxit(l); 
}else 

if ( ( intv >= 0 ) && ( intv < nsp ) && ( ksp < nsp ) ) 
{ 

arsd[ksp).cns = inrv; 
}dsc 

if ( ksp b nsp ) 
{ 

fprintf(stderr i f 'N007ksp - %d is set to wrong number.Vn", ksp); 
exil(l); 
(else 

if ( ( intv < 0 ) R ( intv >= nsp ) ) 
( 

fprintfCs«le^r/^007Can , t read %s; ens". argv[k|); 
fprintf(suierr". is set to the wrong number.Nn"); 
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*g5 +«= *ty * *rxg; 
rgg++; rgx++; tg++; 
rxg-M-; rxx++; ty++; 

} 

tg-« kgit2pl; ty-= kgit2pl; 

} 

tg += rho; ty += rho; mrk « - mrk; 
gO+=dd;gl +=dd;g2+add; 
g3 +»dd;g4*=dd;g5+=dd; 

} 

igg nx * dd; 

) 

ranp = 0.0; k = 0; 

for(j = -ksj;j<=ksj;j++) 

{ 

tmpys=j * dscl/sgdsj; 

dtrnp = -0.5 • tmpys * tmpys; 

rtg[k] = exp(dtmp); rtmp » rtmp + rtg[k] ;. 

ny[k] « xtg[k] * tmpys / sgdsj; 

k++; 

} 

rtmp « sqn((double)isc) / rtmp; k = 0; 

for< j o - ksj; j <=ksj; j-H- ) 

i 

ngtk]«rtgtk]*mnp; 
rry[k] = rty[k] • rtmp; 
k++; 

) 

rtmp = 0.0; k«0; 

rsg ■ rggvtr, rsx * rgxvtr; 

for ( i » ~ ksi; i <« ksi; i++ ) 

{ 

tmpxs = i * dscl / sgmsi; 

dtmp = -0.5 * tmpxs * tmpxs; 

rsg[k] = exp(dimp); rtmp = rtmp + rsg[k]; 

xsx[k] = rsg(k) * tmpxs / sgmsi; 

k++; 

) 

rtmp = sqrt((double)isc) / rtmp; k - 0; 

for ( i = - ksi; i <- ksi; i-H- ) 

( 

«gW«ngM*nmp; 
rsx[k]=rsx[k]* rtmp; 
k++; 

} 

if < dft = dd ) mrk =s 0; else mrk « 1 ; 
ksit2pl = 2 • ksi + 1; ksjt2pl = 2 * ksj + 1; 
ifsjdd « ni * (kj - ksj * dd) + Id - ksi * dd; igg m 0; 
nsi = rho * (nx - i) + 2 * ksi +■ 1; 
for(j»0;j<ny;j+-dd) 

ifsidd « ifsjdd; 

tg ■ iggvtr; ty = tgyvtr; 

for(i^0;i<nsi;i«-=dd) 

( 
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cxit(i); 

I 

} 

J 

for(k« l;k<argc; k++) 

{ if ( (*(argv[k]) _ •-') && (*(argv[k]+l) « V) ) 

' if ( r(argv[k}+2) « V) (*(*rgv[k]+3) — V) ) 
( 

if ( sscanf(argv[k). m -tep%d\ &ksp) != 1 ) 
( 

fprintf(stden\'W7Can*t read %s". argvfk]); 
fjnintf{stderr.*' it must be -ksp<k>ng>\iO; 
exit(l); 
Jelse 

if((ksp<0)ll(ksp>nsp)) 

fpriatf(5tdcrt l , VX)7ksp - %d is set to wrong oumber.V, ksp); 
cxit(l); 

} 

) 

) else 

if ( (»(argvM) = '-')&& (*(argv[k]+l) = 'a') ) 

{ 

if ( (nargvIkl+2) == V) (*(argv(k]+3) = 'p') ) 
{ 

if ( sscanf(argv[k), '-asp^r, &temp) 1=1) 
( 

fprintftstderr.^sOOTCWt read %s it aigv[k]); 
fprintf($tderr,"miisi be: -a$p<float>\n M ); 
cxit(l); 

) 

if ( ( ksp >= 0 ) && ( ksp < nsp ) ) 
{ 

arsd[ksp].a = temp; 
) else If ( ksp = nsp) 
( 

for ( ksp = 0; ksp < nsp; ksp++ ) 
I 

arsd[ksp].a = temp; 

) 

ksp = nsp; 

} 

} 

Jelse 

if ( (*(aigv(k]) = V) && (*(argv[k]-H) »« V) ) 
t 

if ( (*(argv[k]+2) — V) && (*(argv[k]+3) « *p') ) 
I 

if ( sscanf(argv[k] t "-cspfcf. &tcmp) != I ) 
( 

rprintf(su3crO007Can't read %s it argv[k]); 
fprimf(stderr, H musi be: -csp<float>\nl; 
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exii{l); 

} 

if ( ( ksp >= 0 ) && ( ksp < nsp ) ) 
( 

arsd[kspl.c « temp; 
■ J else if ( ksp » nsp ) 

for ( ksp = 0, ksp < nsp; ksp-t-+ ) 
i 

arsd[ksp].c » temp; 

) 

ksp = nsp; 

) 

) else 

if ( (*<a*gv[k]+2) — 'k') && (*(argv[kJ+3) = *k') ) 
{ 

if ( sscanf(argv[kL "-ckMW", &ckk) 1= 1 ) 
I 

fprimf(suicrr/\XnCan*trcad %i\ argvfk]); 
rprintfCstderr,", it must be ~ckk<long>\n n ); 
exit(l); 
}else 

if ( ksp nsp ) 
{ 

fprintf(scderr/\X)7ksp = %d is set to wrong numberAn" 
exit(l); 
J else 

if ( ( ckk < 0 ) II ( cfck > arsd[ksp].cns ) ) 
( 

fprintf(stdejr, '\)07ckk = %d is set to wrong number.W 
exitO); 

} 

} else 

if ( <*(argv[k]+2) = V) && {♦(argv[k]+3) = V) ) 
( 

if ( sscanf(argv(k]. "-cnVfcd", Aintv) 1= 1 ) 
I 

fprmtf(stden-/YX]7Can't read %s it must be*\ argvjk]); 
fprintf(stderr,": -cnv<long>\n"); 
cxit(l); 
} else 

if ( ksp nsp ) 
I 

fprintf(stderr f "VO0 | 7ksp = %d is set to wrong number.Nn 1 
exitd); 

} 

aisd[ksp].cnv[ckk] = inrv; 

} 

) else 

if ( C(argv[k]) — V) && (*(argv[kM) »« V) ) 

if ( (*(argv[k]42) = V) 3c8c (*<argv[k]+3) = V) ) 

if ( sscanf(argvlk], "-bsp%r. Atcrap) !» 1 ) 
f 



if ( sscanf(argv[kl f "-dhpfef 1 , Aterap) != I ) 
( 

fprinrf(stdeiT t , >007Can't read %s it must be*\ argvfkj); 
fp^intf(stde^^ l ' , : -dhp<float>\n"); 
exitd )s 

) 

if ((ksp>=0)&A(ksp <nsp)) 
( 

optf.dhp[ksp] = temp; 
} else if ( ksp = nsp ) 



{ 



for ( ksp = 0; ksp < nsp; ksp++ ) 



optf.dhp[ksp] » temp; 



ksp = nsp; 

) 

Jelse 

if ( C(argv[k]+2) = 'v*) && (*<argv[k]+3) = 'm') ) 
{ 

if ( sscanf(argv[k], "-dvnrtfcr, &temp) != 1 ) 
( 

fprintfCstderr/NOOTCan't nead %s it must be". argv[k)); 
fyrintftstderr,": -dvrn<floar>\n M ); 
,ksp); exitd* 
J 

if(<ksp>«0)&&<ksp<nsp)) 
I 

optf.dvm[ksp] - temp; 
,ckk); ) else if (ksp = nsp) 



i 



t or ( ksp = 0; ksp < nsp; ksp++ ) 



optf.dvmfksp) * temp; 



ksp = nsp; 

) 

}else 

if ( (♦<argv[kJ+2) — W) && (*(argv[k]+3) — 'p') ) 
I 

if ( sscanf(axgv[k], "-dvpfcf, &tetup) != 1 ) 
( 

fprintf(siderr,'V)07 Can't read %$ it must be", argv[k]); 
, ksp); fprintf(siderr, M : -dvp<floar>\n''); 
exh(l); 

) 

if((ksp>*0)&&(ksp<nsp)> 
( 

optf dvp[ksp) m temp; 
) else if ( ksp nsp ) 
{ 

for ( ksp = 0; ksp < nsp; ksp++ ) 
( 

optf.dvp[ksp] = temp; 

) 
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for ( ksp = 0; ksp < nsp; ksp++ ) 
arsd[ksp].p *= temp; 

). 

ksp = nsp; 

) 

I 

I else 

if ( C(argvM) = *-•> && <*(argv[k]+l> = V) ) 
{ 

if ( (*(argv[k]+2) = V) && (*(argv[k]+3) = >') ) 

{ 

if ( sscanf(argv[k3. M -qsp%f, &temp) != 1 ) 
( 

fjprintf(si<Jexr;>O07Can*tiead %s it *, argvfk]); 
fyrintf(stderr,"must be: -qsp<fioat>Nn"); 
exit(l); 

I 

if ( ( ksp >= 0 ) && ( ksp < nsp ) ) 

arsd[ksp].q = temp; 
} else if ( ksp = nsp ) 
{ 

f or ( ksp = 0; ksp < nsp; icsp++ ) 
arsdflcspl.q = temp; 

} 

ksp = nsp; 

J 

) 

) else 

if ( {*(argv[k]) — '-') && (*(argv[k]+l) = M') ) 

C C(argv[k]+2) = 'h') && (*(argv0c]+3) = -m") ) 

if ( sscanf(argv[kj, ~-dhm%r, Atemp) != 1 ) 

fprincf(stderr i *^007Can*t read %s it must be", argv[k]); 

f^rimf(stderr, M ; -dhm<float>\n"); 

exit(l); 

1 

if ( ( ksp >«= 0 ) && ( ksp < nsp ) ) 

optf.dhm(ksp] » temp; 
) else if (ksp *» nsp) 
[ 

for ( ksp = 0; ksp < asp; ksp++ ) 

optfxihmfksp] = temp; 
ksp a nsp; 
) else 

if £ (*(argv[k]+2) = 'h') (*<argv[k)+3) V) ) 
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ksp = nsp; 

) 

) else 

if ( C(argv[k]+2) — V) && (*(argv[k]+3) — 'm') ) 
{ 

if ( sscanf(argv[k] f "-dtm%f f &tcmp) != 1 ) 
{ 

fprintfCstderr.'VXnCan't read %s it must be*\ argvflc)); 

fprintf(stdcrr,": -<itrn<Jloat>VO; 

cxitd); 

} 

if { ( ksp >= 0 ) £l& ( ksp < n sp ) ) 
{ 

optf.dtmfksp] =r temp; 
} else if ( ksp = nsp ) 
( 

for ( ksp = 0; ksp < nsp; ksp++ > 
{ 

optf .dtm[ksp] « temp; 
ksp « nsp; 

} 

) else 

if { (*<arsv[kJ+2) Y) && (*(argvfk]+3) ™ 'c') ) 

if ( sscanf(argv[k], Nitc%f \ fctetra?) !*= 1 ) 

fprintf(stderT,"V007Can , t read %s it must be", argv[k]); 

fprintf(stderr, w : -<irc<float>V); 

exit(l> f 

) 

if ((ksp >=0) &&(ksp<nsp) ) 

optf.dtc[ksp] = temp; 
} else if ( ksp = nsp ) 
{ 

for < ksp « 0; ksp < nsp; ksp++ ) 
optf.dtc[ksp] » temp; 

) 

ksp = nsp; 
(else 

if ( (*(argv[k]+2) = Y) && (*(argv[k]+3) V) ) 

if ( sxcanf(argv(k3. **-dtp%r\ &temp) != 1 ) 

fprintf(sulerr i "VO07Can , t read %s it must be\ argv{k]); 

fprintf(std«T -dcpcfloa^Vn"); 

exit(l); 

} 

if ( ( ksp >- 0 ) &-8l ( ksp < nsp ) ) 

optf.drp[kspl « temp; 
J else if ( kip = nsp ) 
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[ 

for ( ksp « 0; ksp < nsp; ksp++ ) 
( 

optf.dtp[ksp] = temp; 

) 

ksp « nsp; 

) 

} else 

if ( (*(argvM+2) = T) && e<aigv[k]+3) — V) > 
{ 

if ( jscanf(argv[kj. NUt%f. Atcmp) != 1 ) 
( 

fprintf(siderO007Can't read %$ it mast be", arjvik]); 

fprintfCstderr/*: -dlt<float>\n")*. 

cxiKl); 

) 

if (( ksp >= 0 )&&( ksp < nsp ) ) 
I 

arsd[ksp].dlt[ckk] = temp; 
} else if ( ksp — nsp ) 
( 

for ( ksp = 0; ksp < nsp; ksp++ ) 
( 

arsd[ksp].dJt[ckk] = temp; 

) 

ksp = nsp; 

) 

] 

}else 

if ( (*(argv(kj) — '-•) && (*(aigv[k]+i) — V) ) 
{ 

if ( <*(wgv[k]+2) — **') && (*(argv[k]+3) — *n*) ) 
{ 

if ( sscanf(argv[k], *-wmn%f\ &temp) 1= 1 ) 
{ 

fprintfCstdcrr.'VXnCan't read %s it musi bc\ argv[k]); 

fcrintf<stdeir,**: -wmn<float>VT); 

exit(l); 

} 

if ((ksp>=0)&&(ksp<nsp)) 
( 

arsd[ksp].wmn[ckk] - temp; 
} else if { ksp <== nsp ) 
{ 

for ( ksp = <h ksp < nsp; ksp++ ) 
{ 

arsd[ksp].wmn[ckk] « temp; 

I 

ksp = nsp; 
) else 

if ( C(argv[k)+2) V) && <*(argv[kl+3) V) ) 
{ 

if ( sscanf(argv[k], "-wxy%f\ &temp) != 1 ) 
( 
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fprintf(stdcrr, "ksp = %d; \ ksp); 
fj>rintf(sidout, "ksp « %d; ksp); 
fprintf(sxderr, "a ■» %6.3f; arsd[kspj.a); 
fj>rintf(stdout, "a « %6.3f; and[ksp}.&); 
f{>rintf(stderr, "c « %6.3f; arsd[kspj.c); 
fprintf(stdout, "c = %6:3f; and[ksp].c); 
fprinrf(stderr, *b = %6.3f, arsd[ksp].b); 
fjjrintffcidout, M b = %6.3f; M . and[ksp].b); 
fprintf(siderr„ "r« %63f; \arsd[ksp]x); 
r>ririif(stdout "r « %6.3ft *, arsdtkspJ.T); 
fj)rimf(stderr, "p » %6.3f, *\ arsd[ksp].p); 
tyrimfCstdout, "p = %6.3f; arsd[ksp].p); 
^rintf(siderp, "q « %6.3f; w , arsd[ksplq); 
fprirtf(sulout f "q « %6.3f; arsd[ksp].q); 
fpruitf(stderr, "ens « %d;Vn\ orsd[]csp].cns); 
fprintfCstdout, "ens =* 9W;W\ arsd[ksp]ms); 

J 

for ( ksp = 0; ksp < nsp; ksp++ ) 
( 

fprintf(stderr, "ksp « %d; ", ksp); 
fprintfCstdout, "ksp = fed; ksp); 
fpriiufCstdcrr. "dhm = %63f; \ optf.dhm[kspl); 
fj>rintf(stdout, "dhm = %6.3£ optfdhm[kspl); 
rpruitf(stdcrr, "dvm = %6 Jf; \ opttdvm[ksp]); 
f^rintf(stdout, "dvm = 9b6.3ft optfdvmfkspj); 
fpriiitf(stderr, "dtm = &&3f>n\ optf«dtm[ksp]); 
fpruitf(stdout, M dtm = %6.3fW\ optf.dtm[tep)); 
fprintf(st<krr, "dtc ° %6.3f; " f oprf.dtc[ksp]); 
fj>riiitf(stdout, "dtc - %6.3f; w , optfxltc[ksp]]; 
fprintf(stderr v *dhp « %6.3f; M , optf.dhpfksp]); 
fprintf(stdout, "dhp= %6.3f; " f optf.dhp[ksp]); 
fprinrfCstdcrr. °dvp = %6.3f; optf.dvpfksp]); 
fjprintf($tdout, "dvp = %6.3f; optf.dvpIksp]); 
fyrintfCsulcrr, "dtp = %6.3fu , \ optldtplksp]); 
fprintfCstdottu "dqi = 3>6.3f\n\ optf.dtp[ksp])t 

) 

for ( ksp = 0; ksp < nsp; ksp++ ) 
( 

for ( ckk = 0; ckk < arsdlksp].cns; ckk++ ) 
{ 

fprintf (stderr, "ksp = ckk = %d; " t ksp, ckk); 
fprintf(stdout, lesp = %d; ckk » %&, **, ksp, ckk); 
fprintf(stdeir, M cnv = %d; w , arsd(ksp].cnvfckk]); 
fprintfCstdout, M cnv = %d; \ arsd[ksp].cnv[ckk]); 
fprintfCsidecr, "<Ut = %6.3f; arsdncsp].dli[ckk]); 
fprintfCstdout, "dll = %6.3f; *\ arsdfksp]xllilckk]); 
fprintfCstderr, "wmn = %6.3f; " t arsd[kspj.wmn[ckkj); 
fprintf (stdout, "wmn = %63f; \ arsd[ksp].wmn[ckk]); 
fprintf(s(derr, "wxy =» %6.3f; arsdlksp].wxy[ckk]); 
fprintfCstdout, "wxy - %6.3f; M , arsd[kspl.wxy[ckk]); 
fprintf(stderr, "wuv = %6.3fNn". arsd[ksp].wuv[ckki); 
fprintf(stdout, "wuv » %6.3f\n", arsd[ksp].wuv[ckkj): 

! 

1 
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fpr™tf(stderO007Can*t read %s it musi be - , argv[k]); 

fprinrfCstdcrr,": -wxy<float>W); 

exit(l); 

} 

if ( ( ksp >= 0 ) && ( ksp < nsp ) ) 
( 

arsd(ksp].wxy[ckkl = temp; 
} else if (ksp as asp) 
[ 

f or ( ksp = 0; ksp < nsp; ksp++ ) 
( 

arsd[ksp).wxytckk] = temp; 

) 

ksp o nsp; 

) 

} else 

if ( C(argv[k]+2) » V) && (*<argvfk]+3) — V) ) 

if ( sscanf<argvfk], "-wuvfcf 1 , &tcmp) !« 1 ) 

fpriMf(stderr,*\X)7Caji*t read %s it must be\ argvft]); 

fprintf(stdexr, M : -wnv<floap ? w H ); 

cxitd); 

I 

if (<ksp>=0)&&(ksp<iisp)) 

arsd[ksp].wuv[ckk] =temp; 
)dse if (ksp =nsp) 

[ 

for ( ksp « 0; ksp < nsp; ksp++ ) 

aisd[ksp].wuv[ckk] = temp; 
ksp = nsp; 

) 

} 

) 

} 

fprintfCstderr, "lvs = %d, ifeo = lvs, mo); 
fprimf(stdout, "lvs = %d, rho = %d, w , lvs, rho); 

fprititf(stderr t "nh « %d, kx - %d, mxn = %d, mxu - %d\n", nh, kx, mxn, mxu); 
fprintf(stdout, w nh « %d, kx ~ 3>d, mxn = %i mxu = W, nh. kx, mxn, mxu); 
fprinrf(stdcrr l w nsp « %d, tau = %d, nsp, tau); 
fprintf(stdoui, "nsp « %d. tau » %d. \ nsp, uu); 

fprintf(stdcrr, "nv = %d, ky o %d, mxl = <fcd, raxs = %d\n", nv, ky, mxl, mxs); 

fprinrf(stdouu "nv = %d. ky = %d, mxl = %d, mxs = nv, ky. mxl, mxs); 

fpfintf(stderr. "usi o %&Jf, rhg = %8.5f, \ ust, rhg); 

fprintf(stdout, "ust « %8.5f, mg « %8-5f, ust, rhg); 

fprintf(suieTT f "rhx = fc8.5f, gun - %8.5f, gul - %8.5tV\ ihx. gun, gul); 

fprintf(stdoui, h ihx o %8 jf, gun „ %g. 5 f t ^ » %8.5f\n", rhx, guo, gul); 

fprintf(stderr, "vst - %8.5f f isc - %8.5f. rt , vst, isc); 

fprititf(stdout. "vst « %8.5f, isc » %8Jf, vst. isc); 

fprintfCsdenr, "gvn «= %85f. gv! * %8.5f\n\ gvn, gvl); 

fprintf(stdout, "gvn - %8.3f t gvl = %8.5fsn". gvn, gvl); 

for ( ksp - 0; ksp < nsp; ksp++ ) 
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if ( inirpr_d(^ f ^,^,^,& Q x ) &n^ !» 0 ) cxit(l); 

if ( sdbtun_f(flrac, avrgm, imc - Id, jmc - kj, ni, nj) != 0 ) exii(l); 
if ( sdbdm_f(npc f avrgp, ipc - ki, jpc - »y. ni. nj) !~ 0 ) cxit(l); 
if ( ( itst - initpr jm(ki, dn, kx, ky f nh, nv) ) !=* 0 ) 

fpriMfiCstderr, "Subroutine initpr_ra has failed, itst = %d\n"\ itst); 
cxit(it5t); 

} 

k-i; 

for(j = l;j<«nv;j++) 
( 

for(i = l;i<= nh; i++) 
{ 

hvOhO[k]=i: 
vvOhQ[k) =j; 
k++; 

} 

) 

for ( ksp o 0; ksp < nsp; ksp++ ) 
k-1; 

for(j= l;j<=nv; 
( 

for(i = l;i<=ntei++) 
{ 

arsd[ksp].uuvf]lc] = use; 
k++; 

} 

] 

aisd[ksp].vwfI0] • vst; 

) 

for ( lev « lvs; lev > 1st; lev- ) 
( 

sgdg = sgd; sgds = SMTH ♦ sgd; 
sgrag = jgm; sgms = SMTH * sgm; 

fprinif(suloui,Tbe level %d: sgmg = %f; sgdg = %$\n M t lev, sgm*scl, sgd*scl); 
fprintf(stderT, f The level %± sgmg « %f; sgdg « %f;W\ lev, sgm*scl, sgd*scl); 
scln = 2.0 * exp((doubleX-1.0)); 
for ( ksp = 0; ksp < nsp; ksp++ ) 

arsd[ksp].csq « arsdfkspj.c * arsd[kjp]x * scln; 
arsd[ksp].bsq * arsd[ksp].b * ar5d[ksp] ( b • scln * sgmb; 
arsd[kspj.psq - arsd[ksp).p * arsdfkspj.p * scln; 
^ arsd[ksp].qsq a arsd[ksp].Q • arsdf ksp].q ♦ scln * sgmq; 

if (mxn — 0) continue; 
rprintf(stdout,'The derivatives of the images: *); 
fj)rintf(stderr,"Tbe derivatives of the images: *); 
for ( bn = 0; bn < bns; bn++ ) 

if ( idbriro J(flroc, avrgm, optfigm, imc - ki, jmc - kj. ni, nj, bn) != 0 ) 

exii(l); 
fgg « optf.fgm; 

ggg «=optf.ggmlbnl; ggx = opcf.gxmlbn); 
ggy =optf.gyro]bnJ; gxg = optf.rgm[bnj; 
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gxx ■ optf jocmfbn]; gxy « optf.xym[bn]; 
gsx « optf.sxmlbn]; gsy - optf^ym[bn]; 

sctacr<dd.diOdJg,ni^^y/gg,ggg^gx.ggy.gx&gw(igxy t gsx,gsy); 
fprintf(stdout,"fgm[%d], \ bn); fprintf(stdcTT, M fgml%d]. bn); 

) 

for ( bn = 0; bn < bns; bn++ ) 

if ( rdbtim_f(flpc, avrgp. optf f gp. ipc - ki, jpc - kj, ni, nj\ bn) != 0 ) 

exitfl); 
fgg = cptf.fgp; 

ggg =optf.ggp[bn]: ggx =optf.gxp[bn); 

ggy -optf.gyp(bn); gxg a optf-xgp[bnJ; 

gxx = opcf.xxplbnj; gxy = optf jryp[bn}; 

gsx » optf^xp[bn]; gsy = optf.syp[bn); 

s«tder(aVi.dnJdJcj,nijujiy.fgg.ggg.ggx.ggy.gxg t gxx,gxy.gsx,gsy); 

fprintf(stdouCfgp[%d], *. t>n); f^tf(sta^rr"fgpt%d) 1 ", bn); 

) 

fprintfCsidouChave been seLVn"); 
fprintfCstdar/havc been set.\n"); 
if ( oorrcs(<UJdnJcx ( ky t nx,Dy .mh.mvjih, 

nvjcp/qj.mxn,mxu^nxl^nx5) 1 ) exit{l); 
fprintf(sidouu"carrcs is oamplaedAiO; 
ffcrintf(stderr. M corres is completc&W); 
if ( prctofC&ddL &dn. frmh, &mv, nh) != 0 ) exitXD: 
fprintf(stdout,'The level %d is corapletedArT, lev); 
fprintf(stdcrr, M The level %d is cotnpleted.\n\ lev); 
sgro sgro I sqit(msg); sgrab = sgmb / SGMB; 
sgd <»sgd/ sqrt(dsg); sgmq ~ sgmq / SGMQ; 
scl - scl / sqn(two); sgmw » sgraw / SGMW; 
rfax = rhx / (sqrt(msg) * sqrt(two)}; 

J 

for ( lev = 1st; lev > 0; lev- ) 
( 

if ( proof (&d<L &dn, &tnh, &mv, nh) 1= 0 ) exit(i); 
fjprintfCsutouuThe level %d is completed.^, lev); 
fprintf(stderr/The level %& is completed>n\ lev); 

if ( widtfl(fldt, nh r nv 4 ime, jmc, ipc, jpc, kx, Icy) \= 0 ) 
{ 

exit(l); 

} 

exit(O); 

1 

Lnitpr_m(kp, dn, lot, ky, nh, nv) 
long kp, qji, kx, ky, "h, &v; 
( 

float *gopt, *wars t *uars, *vars, *work, *uuvf, * wvf; 

long *mars, ktmp, ksp, nsc,bn,i,j; 

kirop = kx / dn; lamp = ktmp * dn; 

if ( bns = 0 ) rctum(l); 

if(kx !=kcrnp) 

( 

fprintf(stderr. The kx should be divisible by %d.\n", dn); 
retum(I); 
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for<i = 1; i< *mh; i++ ) 
{ 

kl2 o k - ddinh; kll » k - *dd; 
k21 - k + ddtnh; k22 = k + *dd; 
for ( ksp m 0; ksp < nsp ; ksp++ ) 

arsd(ksp].uuvfTk] « (ar$d[ksp}.uuvf[kl 1) 
+ arsdlksp].uuv*tkl2j 
+ arsd[ksp3.uuvffk2ij 
+ arsd£ksp]\uuvf[k22]) • 0.25; 

k += *dii; 

) 

) 

k=kl; 

for( i ss 1; i < *mh; i++ ) 
{ 

kii=k-»dd;k22-k + *dd; 
f or ( ksp - 0; ksp < n sp; ksp++ ) 

arsd[kspl.uuvfDc] = (arsd[ksp].uuvf[kl 1] 
+ arsd[kspj.uuvt[k22])*0.5; 

k*=*dn; 

) 

kl«*dd*nh + l; 
for(j = l;j <*mv;j++) 

k «kl;kl +« dntnh; 

kl2-k -ddtnh;k21 = k + ddmh; 

for ( ksp - 0; ksp < nsp; ksp-H- ) 

ajsd[ksp].uuvf[kl = (arsd[ksp3.uuvf[kl2] 
+ arsdlksp).uuvf[k21]) • 0.5; 

k+»*dn; 

for( i = 2; i < *mh; i++ ) 

kl2=k- ddtnh; kll «k-*dd; 
k2I = k + ddtnh;k22»=k + *dd; 
for ( ksp - 0; ksp < nsp; ksp-H- ) 

arsd[ksp].uuvf[kj = (arsd[ksp}.uuvflkll] 
+ arsd[ksp].uuvtlkl2] 
+ arsd[kspl.uuvf[k21] 
^ + arsd[ksp].uttvf[k22]) * 0.25; 

k *■* *dn; 

} 

kI2 = k-ddmh;k21 = k + ddtnh: 
for ( ksp « 0; ksp < nsp; ksp++ ) 

arsd[ksp].uuvflk] « (arsd|ksp].uuvflkl2] 
+ arsd[ksp].uuvflk21j)*0.5; 
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kunp » ky / dfl; ktrnp = kcmp * dn; 
if (ky !» ktrnp) 

fyrintfCsuicrr.'T^ ky should be dvisible by %d.Nn\ dn); 
return(l); 

ktrnp = (nh- l)/dn; 
tamp = ktrop * dn + 1; 
if ( nh != ktmp ) 

fprintf(stdcir/Thc nh - 1 should be divisible by %d.W, dn); 
recum(l): 

lamp = (nv - 1)7 dn; 
kunp = kunp * dn + 1; 
if ( nv !« lamp ) 

fprintf(stdcn*,'The nv - 1 should be divisible by %d\n M t dn); 
murn(l); 

gopt * (float *) mflHoc((imsigne<l)(16 * nxy * bns * siieof(float))); 
if(!gopt) 

fprintf(stderr,"memory requested for array gopt failed, msp = %d\n'\ msp); 
return(i); 

J else msp += 16 * nxy * bns * sizeof(floai); 
fprintf(stderr,"gopt: msp = %d; msp); 
for ( bn = 0; bn < bns; bn++ ) 

optf.ggmfbn] «= gopt + (bns * 0 + bn) * nxy; 
optf.gxmfbn] gopt + (bns * 1 4 bn) * nxy; 
optf.gytnfbn] - gopt + (bns * 2 + bn) * nxy; 
optf.sxm[bn] = gopt + (bns * 3 + on) * nxy; 
optf.xgmfbn] = gopt + (bns * 4 + bn) * nxy; 
optf .xxnj[bn] = gopt + (bus * 5 + bn) * nxy; 
optf. xym(bn] * gopt + (bns * 6 + bn) * nxy; 
optf.symfbnj ~ gopt + (bns * 7 + bn) * nxy; 
optf ggp(bn] = gopt + (bns * 8 + bn) ♦ nxy; 
optf .gxp[bn] = gopt + (bns * 9 +• bn) * nxy; 
optf.gyp[bn] = gopt + (bns * 10 + bn) * nxy; 
optf .sxp[bn] o gopt + (bns * 11 + bn) * nxy; 
optf.xgp[bn] = gopt + (bns * 12 + bn) * nxy; 
optf.xxp[bn] = gopt + (bns * 13 + bn) * nxy; 
optf.xyp[bn] » gopt + (bns * 14 + bn) * nxy; 
optf.sypfbnj = gopt + (bns • 15 + bn) • nxy, 

) 

hvOhO o (float *) malloc((unsigned)(nhv * sireof(noai))); 

if(!hv0h0) 

1 

fprintf(stderr/raernory requested for array hvOhO failed, msp » %dVn M , msp); 

return(l); 
I else msp +« nhv * sizeof(float); 
wOhO = (float *) malloc(<unsigncd)(nhv * 3ixeof(float))); 
if(!w0h0) 
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{ 

fprintftstderr/'memory requested for array wOhO failed, msp * 9odSa'\ msp); 
retum(l); 
) else msp +- nhv * sireof(float); 

uuvf « (float *) mailoc((unsigDedXiup * nhv * sizeof (float))); 

if(!uuvf) 

( 

fprintf (stderr, M CDemory requested for array uuvf failed, msp = %<fsrf , rasp); 
rcrum(l); 

} eke msp nsp * nhv * sizeoflCfloat); 
for ( ksp - 0; ksp < asp; ksp++ ) 
{ 

arsdfkspj.uuvf = uuvf + ksp * nhv; 

) 

vwf= (float *) malloc((unsignedXflsp * sizcofl[float))); 

if (!wvf ) 

I 

fprintf(stdcrr, , 'mcmory requested for array vwf tailed, msp « %dSn n , msp); 

rerum(l); 
) else msp +■= nsp * sizeof(float); 
for ( ksp - 0; ksp < nsp; ksp++ ) 
( 

arsd[ksp}.vwf = vwf + ksp; 

) 

nsc = 0; 

for ( ksp a 0; ksp < nsp; ksp++ ) 
{ 

nsc c nsc + arsd[ksp].cns; 

) 

kunp = (15 * nsp + A * nsc + 17) * nhv * sizcof(float) 

+ (4 * nsc + 17) * nhv * sizeof(long); 
if ( ktmp < nij * sizcof (float) ) ktmp «= nij * sizeofXfloat); 
uars = (float *) malloc ((unsigned)ktinp); 
if(!uars) 
( 

fprintfCsidcrr/nicmory requested for array uars failed, msp = %d\n", msp); 

rerurn(l); 
) else msp +« ktmp; • 
fprintf($tdcrr, M uars; msp = %d; \ msp); 
optf.fgm = uars; optf.fgp = uars; 
for ( ksp = 0; ksp < nsp; ksp++ ) 

arsd(ksp].u0vf = uars + (nsp * 0 + ksp) *nhv; 
arsdfkspj.udvf «= uars + (nsp * 1 + ksp) * nhv; 
arsd[ksp].utvf - uars + (nsp * 2 + ksp) * nhv; 
arsd[ksp]xJuvf = uars + (nsp * 3 + ksp) * nhv; 
arsdfksp] jucv = uars + (nsp * 4 + ksp) * nhv; 
arsd[ksp].pucv = uars + (nsp * 5 + ksp) * nhv; 
arsdPcspljqucv - uars + (nsp * 6 + ksp) * nhv; 
arsd(ksp] .zucv = uars + (nsp * 7 + ksp) * nhv; 
arsdlksp] .auul - uars + (nsp * 8 + ksp) * nhv; 
arsd(ksp).auu2 = uars + (nsp * 9 + ksp) * nhv; 
arsdlksp] .g2sq = uars + (nsp * 9 + ksp) * nhv; 
arsdfksp] .auu3 = uars + (nsp • 10 + ksp) ♦ nhv; 
arsdlksp] g3sq = uars + (nsp ♦ 10 4 ksp) ♦ nhv; 
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mvrnhO = mars; mars += nhv; 
mvmhrn - mars; mars += nhv; 
mvOhm = mars; mars +« nhv, 
mvphm • mars; mars +- nhv; 
mvphO «= mars; mars +» nhv; 
mllm » mars; mars +■» nhv; 
ml 2m = mars; mars +*= nhv; 
m21m = man; man +<= nhv; 
to22m = mars; mars nhv; 
mllp = mars; mars += nhv, 
m!2p = mars; mars += nhv; 
m2lp = mars; mars += nhv; 
m2Zp =mars; 

van = (float *) mailoc((unsigned)(10 * nsp * si2eof(float))); 
if(!vars) 

{ "' 

rprinrf(suierr,''memary requested for array vars failed, msp = %d\n", rasp); 
return(l); 

} else msp += 10 * nsp * sueof(float); 
for ( ksp « 0, ksp < nsp; ksp-M- ) 
{ 

arsd[ksp].vOvf a vars + nsp * 0 + ksp; 
arsd[ksp].vdvf = vars + nsp * 1 + ksp; 
arsdTkspl.vtvf = vars + nsp ♦ 2 + ksp; 
arsd[Jcsp].dwf = van + nsp • 3 + ksp; 
arsdDcsp].rvcv » vars + nsp * 4 + ksp; 
arsdTksp].pvcv » van + nsp * 5 + ksp; 
arsd[ksp].qvcv = van + nsp * 6 + ksp; 
arsd[ksp].zvcv = van + nsp * 7 + ksp; 
arsd[ksp].bwl = van + nsp * 8 + ksp; 
arsd[ksp].binv = van + nsp * 9 + ksp; 

fprintfCstdcrr/'oisp = %d; nij - %d; nhv = %d; nxy = %d\n*\ msp, nij, nhv, nxy); 
rctum(0); 

) 

sdbtun__f(fUein, averge, kid, kkj, ni, nj) 

char Tilem; . - 

float *averge; 
long kki, kkj, ni, nj; 

unsigned char buffcr[BUFEL]; float pxltln; 
long pixels, lines, bands, form, imgin; 
long apixel, aline, aband, amyp; 
amyp * DBYTC; imgin = 0; 

if ( opnimg(&imgin, filein, 0, FALSE) != SYSNRM ) return(I); 

getdefC&imgin, &pixels, &lines, &bands, &form); 

pxltln * pixels * lines; 

if (kki +dki <0) did - kki; 

if ( dki < kki + ni - pixels } dki « kki + ni - pixels; 

if(dkj + kkj<0) dkj«-kkj; 

if ( dkj < kkj +■ nj - lines ) dkj » kkj + nj - lines; 

if ( form !« amyp ) 

I 

fprimfCstderr/The input is the wrong data typeNn"); 
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return (1); 

) 

for ( aband = O, aband < bands; aband++ ) 
I 

averge[aband] = 0.0; 

) 

for ( aline » 0; aline < lines; aline-H- ) 
{ 

for { aband » 0; aband < bands; aband++ ) 
I 

rdlinc(&imgin. aline, aband. buffer, BUFEL, arnyp); 
for ( apixel = 0; apuel < pixels: apixd++ ) 
( 

averge[aband] » avexge[aband] + bufferf apixel]; 

} 

I 

I 

far ( aband - 0; aband < bands; aband++ ) 
{ 

averge[aband] * averge[aband] /pxldn; 

clsimg(&imgin); 
if ( bns = 0 ) bns = bands; 
else if (bns != bands )retum(l); 
remm(0); 

) 

rdbtim_f(filein, averge, fg t kki, kkj, ni, nj, bn) 
char *fiiein; float *averge, *fg; 
long kid, kkj, ni, nj, bn; 

unsigned char bufferfBUFEL]; 
long nimd, pixels, lines, bands, line, band, imgin; 
long njmd, dpixe), dlinc, pud, form, amyp, k; 
niend = ni - did; 
njmd = nj - dkj; 
amyp = IDBYTE; imgin = 0; 
if ( opninAgC&imgin. niein^O, FALSE) != S YSNKM ) return(l); 
getdef(&imgin, &pixels, Alines, &bands, <Scform); 
if ( form != amyp ) 
{ 

fprintf(stderr,"The input is the wrong data rypeW); 
retum(l); 

} 

if( bands != bns) 
[ 

fprintf(stderr,*The input is the wrong bands type'to"); 
retum(l); 

) 

if ( bands > BANDS ) 

fprintf($tdcrr,*Thc input has too many bandsVT); 
rctum(l); 

) 

if( pixels > BUFEL) 
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rprintf(stden. " (u,v) - (%6.4f,%6.4f)W\ tmpuu, tmpw); 
^ f>rintf(stdout, " (u,v) = <%6.4f, < 2>6.40Sn h , tmpuu, tmpw); 

rerum(O); 

} 

prctoffdd, (in, mh, mv, nh) 
long *dd, *dn, *mh. *mv, nh; 
{ 

register long k, kl 1, kl2, k21. k22; 
long nhpl, kl. i. j, dntnh. ddtnh, ddtnhpl; 
if ( (*dn = 1) &.&. (*dd = I) ) rerum(O); 
nhpl = nh + 1; dntnh s *dn * nh; 
if(*dn = *dd) 
( 

*dd a *dn • 03; 
ddtnhpl = »dd * nhpl; 
kl = *dd*nh + *dd+ 1; 
for(j«l;j<*mv;j++) 

k-kl;kl+= dntnh; 

for(i=l;i<*inh; 

{ 

kl 1 = k - ddmhpl; kl2 = kl 1 + *dn; 
k22 = k + ddtnhpl; k21 =k22- *dn; 
far ( ksp » 0; ksp < nsp; ksp++ ) 

arsd[ksp].uuvf[k] = (arsd(kspl.uuvflkl 1] 
+ arsd[ksp].uuvtlkl2j 
+ arsd[ksp).uuvf[k21] 
+ arsd[ksp].uuvf[k22J) * 0.25; 

k += *dn; 

I 

} 

retum(O); 

) 

if(*dn = (»dd + *dd)) 

( 

ddmh • *dd * nh; 

kl-Md+l; 

k = kl;kl*= dntnh; 

for(i= I;i< *mh; i++) 

kll = k-*<Jd;k22*k + *dd; 
for ( ksp = 0; ksp < nsp; ksp++ ) 

arsd[kspj.uuvilk) « (arsd[ksp].uuvflkl 1J 
+ arsd[ksp].uuvflk22]) * 0.3; 

k+- *dn; 

} 

for(j=2;j<*mv;j-H-) 
k=kl;kl += dntnh; 
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{ 

fprintf(stderr,"The buffer is not large enoughVT); 
rctum(l); 

I 

if(kki+dki<0) 

fprintf(sukrr,The did « %d is not large enough, \ dki); 
fprinrf($idcrT,-thc value of dfci should be » %dSrV\ -kki); 
rerurn(l); 

} 

if ( pixels • kki - nirad < 0 ) 
( 

fprintfCsidcrr^The did = %d is not large enough t the *, dki); 
ftjrlntflstdcrr.** value of did should be - %d\n". kki + ni • pixels); 
rcturn(l); 

J 

if(kkj+dkj<0) 
{ 

rprintf(stderr, M 'nie dkj = %& is not large enough, dkj); 
rprintf(stderr, M the value of dkj should be = %dto", -kkj); 
rerurn(l); 

) 

if ( lines - kkj - njtnd < 0 ) 
{ 

fprintfXstderr/Thc dkj - %d is not large enough, the dkj); 
rprimf^suierTr value of dig should be = fcdSn\ kkj + nj - lines); 
rcrum(l); 

) 

for ( line = kkj + dkj; line < kkj + rvjmd; linc++ ) 
I 

for ( band = 0; band < bands; band++ ) 
{ 

rdline(&ixngin, line, band, buffer, BUTEL, amy?); 

if ( band = bn ) 

1 

if (line = kkj + dkj ) k =0; 

for ( pixel « kki + did; pixel < kki + nimd; pixel++ ) 

( 

fg[k] a buffer{pixcl] - averge[band]; k++; 

if(dki>0) 

{ 

if (( pixel — kki + dki ) II ( pixel — kki + rurad - 1 ) ) 

1 

for ( dpixel « 0, dpixel < dki; dpixel -H- ) 
I 

fg[k]*fg[k-l]; k++; 

) 

\ 

) 

) 

if < dkj > 0 ) 
( 

if ( ( line — kkj + dkj ) II ( line — kkj + rvjmd - 1 ) ) 

c 

for ( dline = 0; dline < dkj; dlinc-M- ) 
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} 

*dn = *dd; 

*mh»2*(*rah- 1)+ 1; 
♦cav » 2 * (*mv - 1) + 1; 
retum(O); 

} 

retum(l); 



wtdtfl(fldu nh. rrv. kirn. kjm. lap, kjp. kx. ky) 
char *fldq 

long nh. nv, 1dm. kjm, kip, kjp, kx, ky. 
{ 

float temp, bufferfBUFEL); 

int wren; static int fd; 

long k, i, tx, jy, bn, ksp, nbufFer, 

fd = open(fldt, O.RDWR I O.CREAT, 02644); 

if(fd<0) 

( 

fprintf(stderr. "Can 1 ! open file %s\tf\ fldt); 
return(l); 

} 

temp = nh; 

wrtn = write(fd, Atemp, sizeof(float)>; 

If ( wrm != sireof(float) ) 

{ 

fprintfCstderr, "write has failed at point 2.NfT); 

close(fd); 

returo(l); 

) 

temp » nv; 

wrtn » write(fd, &tcmp, sizeof(float)); 

if ( wrtn != sizeof(float) ) 

I 

fprintf(stderr. "write has failed at point 3.\n"); 

close(fd): 

return(l); 

} 

temp = kirn + rho * kx; 

wrtn = whte(fd, &temp, sizeof(float)); 

if ( wrtn !» sizeof( float) ) 

I 

rprintf(stderr, "write has failed at point 4.\n"); 

closc(fd); 

rctum(l); 

) 

temp o kjm + rho * ky; 

wrtn = write(fd ? Atemp, siieof(float)); 

if(wrtn!-sucof(float)) 

{ 

fprintf(stdcrr, "write has failed at point 5.W); 

close(fd); 

return(l); 

} 

temp - kip + rho * kx; 
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( 

for ( pixel = 0; ptxel < ni; pixcl++ ) 
( 

) 

} 

) 

} 

} 

} 

) 

clsimg(&tmgin); 
retum(0); 

) 

float *rtgvtr, *rtyvtr, *rggvtr, *rgxvtr, *rxgvtr, *rxxvri t *tggvtr. *tgyvtr, 

Lnitpr_d(dd, da, ki, kj, ax, ny, ni, nj, mh, mv, nh, nv, kx, ky) 
long *da\ *ki, *nx, *m\ *mh, nh, kx; 
long *dn t *kj, *ny, *nj, *nrv. nv, ky; 

double sqrtl, sqn2, ceilQ. sqrtO; 

long ddv, kiv, axv, niv f kgi » 0, ksi = 0, kgit2pl, ksitfpi, ktp; 

long dnv, kjv, nyv, njv, kgj » 0, kij = 0, kgjt2pl, ksjt2pl , k; 

ddv = 1; sgmb = 1.0; thre = 2.0; scl = 1.0; 

dnv = 1; sgmq = 1.0; sgmw - 1.0; 

for(k= l;k<lvs;k++) 

{ 

sgm - sgm * sqrt(msg); sgmg = sgm; sgms = SMTH * sgm; sgrab = sgmb * SGMB; 
sgd - sgd * sqn(dsg); sgdg = sgd; sgds = SMTH * sgd; sgmq = sgmq * SGMQ; 
scl - scl * sqrt(two); ihx = rhx * sqn(two ♦ msg); sgmw = sgmw * SGMW; 
if ( ddv = dnv ) 
( 

dnv -2* ddv, sqrtl = 1.0; 

km = thre * 2.0 * ccU((doublc)(0.5 * sqnl * sgmg)); 

if (ktp>kgi)kgi = ktp; 

ktp= thre • 2.0 * ceil«double)(0.5 * sqrtl * sgdg)); 
if(ktp>kgj)kgj = ktp; 
. ktp = thre * 3j0 * ceil((doublc)(0.5 * sqrtl * sgms)); 
if (ktp>ksi)ksi-ktp; 

krp - ihrc * 3j0 * ccil((doubic)(0.5 * sqnl * sgds)); 
if (krp>ksj)ksj = ktp; 

else 

I 

ddv = dnv; sqrt2 = sqn(rwo); 

krp = thre • 2X) • ceil((doubleX0.5 * sqrt2 * sgmg)); 

if (krp>kgi)kgi = ktp; 

ktp » thre * 2.0 • ccil((double)(0.5 * sqrt2 * sgdg)); 
if ( ktp > kgj ) kgj = ktp; 

ktp « thre * 3.0 * ceil((doubte)(0.5 • sqn2 * sgms)); 
if (krp>ksi)ksi = km; 

krp = thre ♦ 3j0 ♦ ceil((double)(0.5 • sqrt2 • sgds)); 
if(kcp>ksj)ksj»krp; 
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} 

kgiOpl =2*kgi + l;kgjt2pl = 2 * kgj + I; 

ksit2pl = 2 * ksi + 1; ksjt2pl = 2 • ksj + 1; 

kiv = ksi * dnv; *rah = (nh - I) / dnv + 1; 

kjv o ksj * dnv; *mv ■ (nv - 1) / dnv + 1; 

nxv o tan * (nh - 1) + 2 • lot + 1; *ki = kiv; *nx - nxv; 

nyv «» tau • (nv - 1) + 2 * ky + 1; *kj - kjv; *ny = nyv; 

niv = rho * (nxv - 1) + 2 * Idv + I; *dd = ddv; *ni = niv; 

njv = rhc * (nyv - J) *2 * kjv+ I; *dn <= dnv; *nj = njv; 

nij m niv * njv + 1; 

nhv =nh * nv + I; 

nxy = nxv * nyv + 1; 

ngvtr = (float *) rnalloc((unsigned)(ksjt2pl ♦ sizeof(float))); 

if ( !ngvtr) 

( 

fprintf(siderT,"memory requested for array rtgvtr failed, msp = %<NT, msp); 

reium(l); 
} else msp += ksjt2pl * sizeof(floai); 
rtyvtr = (float *) maUoc((unsigned)(ksjt2pl * sixeof(float))); 
if < Irtyvtr) 
{ 

fprintf(stderr, H iDcizunv requested for array rtyvtr failed* msp ° %cNT, msp); 

rerum(l); 
) else ms£ +=ksjt2pl * sizeof(float); 
rggvtr = (float *) malloc((unsigned)(ksii2pl * rizeofXfloat))); 
if ( trggvtr ) 
( 

rprintf(stderr "memory requested for amy rggvtr failed, msp = %d\n'\ msp); 

return(l); 
) else msp +-ksit2pl * sizeof(float); 
rgxvtr- (float *) malloc((unsigned)(ksit2pl * areofXfloai))); 
if ( !rgxvtr ) 
{ 

fprinrf(suiaT 1 rt memory requested for array rgxvtr foiled, msp = %d\n", msp); 

rcrum(l); 
} else msp +=ksit2pl ♦ azeof(float); 
rxgvtr = (float *) maHoc((unsigned)(kgit2pl * sizeof (float))); 
if(!rxgvtr) 
( 

fprintf(stderr, N memory requested for array ncgvtr failed, msp = %dV\ msp); 

retum(l); 
) else msp +« kgit2pl * sizoof(float); 
rxxvtr = (float *) raalloc((unsigned)(kgit2pl * sizeof(floai))); 
if ( ! rxxvtr ) 
{ 

fprincf(stdcrr." memory requested for array rxxvtr failed, msp = %d\n", msp); 

retum(l); 
) else msp += kgit2pl • si«of(float); 
iggvtr = (float *) malloc((unsigned)(riiv * si2eof(float))); 
if ( Itggvtr) 

fprintf(stderr, M raemory requested for array tggvtr failed, msp = %dSn*\ rnsp); 

retum(l); 
) else msp +» niv * sizeof(float); 
tgyvtr = (float *) maltoc((unsignedXniv * sizeof(float))); 
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if ( Ugyvtr) 
f 

fprintf(stdexr ."memory requested for array tgyvtr foiled, msp - %<Ni n , msp); 

rerum(l); 
] else msp +«=niv * si2cof(float); 
fprintf(stden; " msp « %d; \ msp); 
return (0); 

] 

setdcr(dd, dn, Id, kj. ni. nx, try. fgg, ggg. ggx, ggy, gxg, gxx, gxy, gsx, gsy) 
long dd, dn, Id. kj. ni, nx. ay; 

float *fgg, *ggg, *ggx, *ggy, *gxg, *gxx, •gxy, *gsx, *gsy; 

/* •/ 

/* Subroutine **sctder** computes the values of the following */ 

/* irruge functions: ggg, ggx, ggy, gxg, gxx, gxy, ggs, gxs, by */ 

/* correlating the values of the initial image function egg V 

/* with the values of the following two-dimensional arrays: */ 

/* rgg, rgx, rgy, rxg, rxx, rxy, rgs, rxs, */ 

/* */ 

/* The array, ggg, is related to the array, egg, as follows: */ 

/* ggg[x + nx * y] corresponds to cgg[i[x] + ni * j[y]J where: V 

/* i[xl = ki + rho*x. and j(y) = kj + rho ♦ y, for x=0. */ 

/* .... nx - 1, and y = 0 ny - 1. */ 

/* V 

/* The arrays ggx.ggy.gxg, gxx, gxy, ggs, gxs, are related •/ 

/* to the array egg in the same way as the array ggg is */ 

/* related to the array egg. */ 

/* */ 

/* The variables are defined as follows. */ 

/* Images (each represented as a 1 -dimensional array, in a row */ 

/* major order): ♦/ 

/* ♦/ 

/* cgg{i + ni*j].i = 0 ( _ni-l,j = O,...,nj-l > is •/ 

/* the initial image value at the pixel (kki - did + i) on the */ 

/* bne(kkj-dkj+j); */ 

I* */ 

f* ggg[x + nx*yJ.x=0,^nx-l,y-0,...,ny-l, is */ 

/* correlated image value at pixel i[x] o (ki + rho * x) on the */ 

/* line j[y) = (kj + rho * y) in the i, j coordinate system; ♦/ 

/* the correlation function rgg is defined to be a modified */ 

/* Gaussian function. */ 

r +i 

f* gxg[x + nx*y] ( x=0 nx - l,y «0, ny- 1, is V 

/* correlated image value at pixel i[x] s (ki + rho * x) on the */ 

/* line j[y] = (kj + rho * y) in the i,j coordinate system; */ 

/* the correlation function rxg is defined to be a modified V 

/* first-order partial with respect to variable x derivative of V 

/* the Gaussian function. */ 
/* V 

/* gg*[x + nx*y], *=0 nx-1. y = 0 ny-1. ♦/ 

/* is the value of the first-order partial with respect to the •/ 

/* variable x derivative of the function, ggg, where the system V 

/* of coordinates (x.y) relates to the system of coordinates */ 
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/» (ij)*s: i[x] « (Id + rho • x), j[yj - (kj + rho * y); */ 

r V 

I* ggy(K+nx*y], x = 0,..,nx-l, y-0 ny-i, */ 

/* is the value of the First-order partial with respect to the */ 

/* variable y derivative of the image, ggg, where the system of */ 

/♦ coordinates (x,y) relates to the system of coordinates (i j) •/ 

/• as: i[x]-(ki + rho*jt), j[y]«(kj + rho*yX */ 
/• V 

/• gxx[* + nx ♦ y] t x = 0, .... nx- 1, y = 0 ny-1, */ 

F is the value of the first-order partial with respect to the •/ 

/* variable x derivadve of the function, gxg. where the system */ 

/* of coordinates (x.y) relates to the system of coordinates */ 

/* (i j) as: i[x] = (b + rho * x), j[y] » (kj + rho * y); */ 

/* */ 

/* gxy[x+nx»y], x s0, .... nx - 1, y «<>,..., ny- 1. V 

/* is the value of the first-order partial with respect to the */ 

/» variable y derivative of the image, gxg, where the system of */ 

/* coordinates (x,y) relates to the system of coordinates (i j) */ 

/* as: i[x]o(ki + rho*x), jjy] - <kj + rho * y); */ 

/* */ 

/* ggs[x + nx*y] f x = 0 1 ...,nx-l, y = 0. ...ny-1. */ 

/* is the value of the smoothed vcrtion of the funcdon, ggg. */ 

/* at the pixel t£x] = (ki + rho * x), on the line ♦/ 

/* jW=(kj + rho + y); */ 

r •/ 

/* gxs[x + nx*y], x*0 nx-1, y =0...., ny - 1, */ 

/* is the value of the smoothed vertion of the function, gxg, ♦/ 

/* at the pixel i[x] = Qd + mo * x), on the line */ 

/* j[y3-(kj+rho*y); */ 

/* */ 

/* Resolution pyramid: */ 

/* */ 

/* (dnflevel], level * 1, ....levels), where: dn[l] = 1. and V 

/* for level = 2 levels dnflevel] i s defined as follows: */ 

/* dn[levell = 2*ddflevel-l]. if dntlevel-1] = ddflevel-1] */ 

/* dnllcvcl] = ddfleveM), if dnflevel-1] = 2 * dd[tevel- 1]; •/ 

/* */ 

7* (ddflevel], level * 1, w levels), where: -dd[l]--*-l. and */ 

/* for level = 2, levels ddflevcl] is defined as follows: */ 

/* ddllevel] =dnllevel-l] t if dn[levcl-l] - 2 * ddllevcl-l] */ 

/* dd(level] = 2* dnflevel^ 1]. if dnfleveM] = dd[Icvcl- 1]; */ 

/* V 

/* For each level - l t levels, the Gaussian parameters: *J 

C *' 

/* xgiOcvell-thre*ceil(sgmg)*dn(levet], V 

/* kgjflevelj = tore *ceil(sgdg)* dnflevel), */ 
/* ksi[(evel] = thre • ceil(sgms) * dnflevel]. ♦/ 
r ksjflevd] a thre • ceil(sgds) * dn(level], */ 
/• */ 

f* kU ksiflevels]; kj « ksjflevcb]; */ 



long k, nitdd; register float *fg. *tg, *ty, *rg. *ry; 
float *g0. *gl. *g2. *g3. *g4. *g5, *sO, *s\; 
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float *rtg, *rry, Vgg, *rgx, *rxg ( *rxx, *rsg, *rsx; 

long i, ii, kgi, ksi, ngi. tnric, ifgidd, ifsidd, kgit2ph ksit2pl ; 

j, jj, kgj, ksj, nsi, igg, ifgjdd, ifsjdd, kgjt2pl, ksjt2pl; 
double omcg, roup, dtmp, tmpxs, sqnl, sqnO, sgmgi, sgmsi; 
double omsq, txnsq, dsc£ tmpys, sqrt2, cc30. sgdgj, sg ' ' 
niidd » ni * dd; 
if(dd — dn) 
{ 

sqnl = 1.0; 

kgi = thrc * 2.0 * cetl((double)<0.5 * sqnl ♦ sgmg)); 
kgj = thxe * 2.0 * ccil((double)(0.5 * sqnl * sgdg)); 
ksi = thre * 3.0 * cciI((douMc)(a3 * sqnl * sgms)); 
ksj = thre ♦ 3.0 * ceU((double)<D.5 * sqnl ♦ sgds)); 

) 

else 
{ 

sqrt2 » sqrt(two); 

kgi a thrc * 2.0 * ceil«doubleX0.5 * sqrt2 * sgmg)); 
kgj = thre * 2.0 * ceil((doubIe)(OJ * sqn2 * sgdg)); 
ksi s due * 3.0 * ceil((double)(0.5 * sqrt2 * sgms)); 
ksj - thrc ♦ 3.0 • ceil((douMe)CaS * sqrt2 * sgds)); 

) 

omcg = 1.0/ 3.0; onisq «= omeg * omcg; 
dtmp = rho * tau; dscl = dd / danp; 
sgmgi «= sgmg * scl / dnnp; 
sgdgj = sgdg * scl / dtmp; 
sgmsi = sgms * scl / dtmp; 
sgdsj = sgds * sci/dtmp; 
ng = ngvtr, k = 0; 
rty = rtyvtr; itmp = 0.0; 
for ( j = - kgj; j <= kgj; j++ ) 

tmpys = j * dscl / sgdgj; 
tmsq = tmpys * tmpys; 
dtmp * -0.5 * tmsq / (1.0 * omsq * txnsq); 
ng[k] = cxpCdtrapX nmp = nznp <+ rtg[kj; 
tmsq — 1.0 - omsq * tmsq; 
rtyfk] = ng[k] * tmpys 7 (sgdgj * tmsq * tmsq); 
k++; 

) 

nmp « sqn((double)isc) / rtmp; k • 0; 
for(j = -kgj;j<«kgj;j++) 

ng[k] = ng[k] * nmp; 
ny|kj = rty[k] * rtmp; 
k++; 

) 

nmp = 0.0; k = 0; 
rgg = rggvcn rxg = rxgvtr, 
rgx *= rgxvtr; rxx = rxxvtr, 
for ( i = - kgi; i <= kgi; i++ ) 

tmpxs = i * dscl / sgmgi; 
tmsq «= tmpxs * tmpxs, 
dtmp = -0.5 * tmsq / (1 .0 - omsq * tmsq); 
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arsdlkspJ.uOvtlkOhO] - arsdtkspJ.uuvflkOhO); 

arsd[ksp].v(M10] » arsdfkspJ.vwf[0]; 

for { itn - 0; im < mxn; itn-M- ) 
( 

for ( ksp * 0; ksp < nsp; ksp++ ) 

if ( ( itst = sctdr2(dd f dn. kx. ky, nx, ny) ) != 0 ) 

rprinrfCstdcrr/Subroutine corres: setdr2 "); 
tyrimftstderr.'rexumes value equal to %d\n u , itst); 
rtcurn(iist); 

} 

} 

rfO = 0.0; 

for ( ksp = 0; ksp < nsp; ksp++ ) 

( ( itst = setmtx(dd, dn, nh, nv, &rJD) ) != 0 ) 

fjprmtf(stden\ w SubrtJutirte corres: setmtx "); 
fprintf(stdcrr/'returnes value equal to %d.\n", itst); 
return (itst); 

) 

for ( k = kvOhO; k; k~ ) 
{ 

arsd[ksp3.udvf[mv0h0fk]] -0,0; 
arsd[ksp].vdvf[0] « 0.0; 
fepsg « feps * rfD; 

fprintf(stdciT t "rf = %8.6f; rk = rfO / (Ooat) (nsp * kvOhO)); 
rprintf(stdout, "if = %8.6f; rk = \ rfO/ (float) (nsp » kvOhO}); 
for ( its = 0; its < mxs; its++ ) 
I 

conjgr(&rkf, fepsg, mxl); 

fprintfCstden; "%8.6f; \ rkf / (float) (nsp * kvOhO)); 
^ fprinmTstdout, "%8.^ - 

tmpuu « 0.0; tmpw * 0.0; 

for ( ksp « 0; ksp < nsp; ksp++ ) 

for ( k = kvOhO; k; k--) 
[ 

kOhO = ravOhOIk]; 

and[ksp).uuvfIkOhO] = arsd[ksp].uuvilk0b0] 
+ stp * arsd[ksp|.udvflk0h0]; 
^ tmpuu +s arsdfkspl.uuvflkOhO]; 

arsd[ksp].wvtIO] « arsdCkspl.vwflO] 
+ srp * arsd[ksp].vdvf[0]; 
^ tmpw += arsd[ksp].vvvf[0]; 

temp » nsp * kvOhO; tmpuu = tmpuu / temp; 
temp - nsp; tmpw = tmpw / temp; 
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rgg[k] - exp(dtmp); rtmp = rtmp + rgg(k]; 
tmsq m (1.0 • omsq * tmsq) * (1.0 - omsq * tmsq); 
rgx(k] = rgg[k] • tmpxs/ (sgmgi • tmsq); 
rxglk] o rggfk] * tmpxs / sgmgi; 

rxx(k] s rgg[k] * (tmpxs * tmpxs / tmsq - 1.0) / {sgmgi * sgmgi) 
k++; 

} 

rtmp « *qn((double)isc) / rtmp; k = 0; 
for ( i = - kgi; i <= kgi; i++ ) 
{ 

igglk] = rgg[k) * nmp; 
rgxfk] o rgx[k] * itmp; 
rxg(k] = rxgfk] * nmp; 
rxxjk] cs rxx[k] * rtmp; 
k++; 
) ' 

if (dn <=a dd)mrka 0; else mrk = 1; 
kgit2pl «2* kgi-t-l;kgja P l -2*kQ + l; 
if gjdd - ni * (kj - kgj * dd) + Id - kgi • dd; igg - 0; 
ngi = rho * (nx- 1) + 2 * kgx+ 1; 
for ( j * 0; j < ny; j ♦= dd ) 
( 

ifgidd = ifgjdd; 
tg = tggvtr, ty = tgyvtr, 
for ( i = 0; i < ngi; i += dd ) 
f 

fg = fgg + ifgidd; 
*tg = 0Arg = ng; 
*ty = 0Ary-rty; 
for { jj • 0; jj < kgjl2p 1 ; ) 

*tg += *fg • *rg++; 
*ty += *fg * *ry++; 
fg += nitdd; 

) 

ifgidd += dd; tg++; ty++; 

) 

.ifgidd>B.id.*rlio*-dd;-ig-s-tggvtn-ty~stgyvtr;' 
g0 = ggg + igg; gl = ggx + igg; g2 = ggy + igg; 
g3 « gxg + igg; g4 - gxx + igg; g5 = gxy + igg; 
for ( i o 0; i < nx; i +« dd ) 

{ 

if(mrk>=0) 
{ 

rgg = rggvir; rgx ■= rgxvtr; 
rxg = rxgvtr, rxx = rxxvtr, 
*g0 = 0.0; *gl = 0.0; *g2 b 0.0; 
*g3 « 0.0; *g4 0.0; *g5 « 0.0; 
for ( ii *s 0; ii < kgigpl; ii++ ) 

*g0 +- *tg**rgg; 
*gl += *tg * * r gx; 
*g2 += *ty * *rgg; 
*g3 +* *tg * *rxg; 
*g4 += *rg * *rxx; 
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wrtn = wriie(fd. &temp, sizeof(float)); 

if ( wrtn != sizeof (float) ) 

I 

fprintf (stderT^write has failed at point 6.VT); 

ctose(fd); 

rcrum( 1 ); 

) 

temp = kjp ♦ rho * ky; 

wrtn - write (fu\& temp, sizeof( ft oai)); 

If ( wnrj != sizcof(float) ) 

{ 

fprintf(sidcrr." write has failed at point 7 VT); 

close(fd); 

rcturn( 1 ); 

).. 

temp = rho; 

wrtn a write(fd,&teinp l sizeof(float)); 

if ( wrtn !« sizeof (float) ) 

( 

fprirtf(stdcrr i w writc has failed at point 9.W); 

cbse(fd); 

icturoO); 

) 

temp * tau; 

wrtn = write(fd,&teinp,si2£of{floar)); 

if ( wrtn (= sizeof (float) ) 

I 

fprintf(stderr/ , write has failed at point 10.VT); 

close(fd); 

rcturn(l); 

) 

temp = nsp; 

wrtn = write(fd,&tcinp»$izcof(ftoat}); 

if ( wrm !* sizeof (float) ) 

{ 

fprintf (stderr/* write has failed at point 16>n M ); 
close(fd); 
- rcmm(l); 
} 

for ( ksp = 0; ksp < nsp; ksp++ ) 
{ 

temp « optf.dtm[ksp] - optf.dtcf ksp]; 
wrtn = writc(fd,&tcrnp,$izcof(float)); 
if ( wrtn != sizcof(float) ) 

( 

fprintf(stderr/ write has failed at the point 18: "); 

fprintf(stderr/terap = %f\ wrtn - %d; " t temp, wrtn); 

f>rintf(stderr,"ksp = %d;V\ ksp); 

closc(fd); 

rcturn(l); 

I 

temp = optf.drp[ksp) + optf.dtc[ksp]; 
wrtn = write(fd,&ianp^izeof (float)); 
if ( wrtn != sizeof(float) ) 
( 



—879— 



(92) 



$$§l¥7-2 1 0 6 8 6 



[08 2] 



[08 9] 



fg » fgg + tfsidd; 

*ig-0.0;rg»ng; 

*ty « 0.0; ry « ny; 

fc*(jj«0;jj<ksjt2pl;jj++) 

{ 

*ig += *fg * *rg++; 
•ry += *fg * *ry++; 
fg+=niidd; 

) 

ifsidd += dd; tg++; ty-H-; 

) 

ifsjdd -f = ni * rtio * dd; 
sO o gsx + igg; tg o tggvtr; 
si * gsy + igg; ty = tgyvtr; 
fox < i = 0; i < nx; i += dd ) 
i 

if(mrk>o0) 
( 

rsg = rggvtr, *$0 * 0.0; 
rsx = rgxvtr, *sl = 0.0; 
For ( ii = 0; U < ksi(2pl; ) 
{ 

*S0 += *tg++ * *rsx++; 
•si += *ty++ • •rtg-M-; 

} 

tg *= ksit2pl; ty -» ksiOpl; 

mrfc - « mrk; 
s0+=dd;tg+= rho; 
si +=dd;ty +=rho; 

J 

igg += nx * dd; 



scd « 2.0 ♦ dd * dd; scd - 1.0 /scd; 
sen - dn*dn; sen « 1.0/ sen; 
for(k*kv0h0;k; k~) 
I 



dii5q[mvOhO{k]] =0.0; 



for(k = kvphp;k;k-) 
{ 

tempu s= oovftrnvmhrnlkj] - uuvflmvphp[k]l; 
tcrapw = tcmpu * tempu • scd; 
dusq[mvmhm[k)] += tempw; 
dusq[mvphp[k]] 4-= tempw; 

for ( k s kvOhp; k; k- ) 
{ 

tempu = uuvf[ra\Ohm[k]l • uuvflmvOhpfk]); 
tempw - tempu * tcmpu * sen; 
dusq[mv0hm[k]] += tempw; 
dusq[mv0hp[k]} += tempw; 

for ( k = kvmhp; k; k- ) 
( 

tcmpu = uuvf[mvphmlk]] - uuvflmvmhp[k]]; 
tempw = tempu * tempu * scd; 
dusq[mvphrn(k]J += tempw; 
dusq[mvrahp[k]j += tempw; 

for(k = kvmh0;k;k- ) 



( 



) 

) 

corre$(dd, dn, kx, ky, nx, ny, mh, mv, nh, nv, reps, feps, mxn, mxu, mxl, 
long dd, dn, kx, ky, nx, ny, mh, mv, nh, nv, mxn, mxu, mxl, mxs; 
float reps, feps; 
< 

register long k, IcOh O; lon g ksc, nsc, itn, itu, its, itst; 
float rkf, rfO, stp = STEP, stl, std, fepsg, tmpuu, tmpw. temp; 
std = STPD; 

if ( ( itst = sednKdd, dn, mh, mv, nh) ) != 0 ) 
I 

rprintf(stderr,"Subioutine corres: setinl 
r>rintf(stderr/'rctunies value equal to %d.W, itst); 
rcturn(itst); 

) 

if(mxn<l )retum(0); 
for ( ksp *= 0; ksp < nsp; ksp++ ) 

for(k = kv0h0;k;k") 

kOhO « mvOhDpc]: 



tempu = uuvflmvph0[k]] - uuvf[mvmh0[k]]; 
tempw = tempu * tempu * sen; 
dusqfmvphOIkJ] += tempw; 
dusq[mvmh0[k]] += tempw; 



auul =arsd[ksp].auul; 
cuvl =arsd[kspj.cuvl; 
mxs) bwl = arsd[ksp}.bwl; 
duul = arsd[ksp].duvf; 
dwt = arsd[ksp].dwf; 
fbr(k-kv0h0; k; k«) 
I 

ra * mvOhOfk]; 
auulfm] -0.0; 
cuvlfm] =0.0; 
duul[m] = 0.0; 
tmpg2[m] =0.0; 
tmpg3[mj=0.0; 
tmpg4[m] - 0.0; 
tmpg5[m] «» 0.0; 

bwl[0]<=0.0; 
dwl[0]=0.0; 
dtp = oprf^rp[ksp]; 
dtc=optf.dtc[ksp); 
dan = optf.dim!ksp]; 
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fprintf(stderr/*write has failed at point 19.VT); 

close(fd); 

recuni(l); 

> 

k = 1; nbuffer- 4 »nh; 
if (nbuffer >BUFEL) 
{ 

fprinrfCsidcrr.-Thc buffer 15 not large enough\n M ); 

closc(fd); 

rerum(l); 

) 

for ( jy =0; jy < nv, jy++) 
{ 

i = 0; 

for ( ix = 0; ix < nh; ix++ ) 
I 

bufferli] = hv0h0[k]; i-w-; 
bufferfi] = wOhOfkj; i++; 
bufferfi] = arsd[ksp].uuvQk]; 
bufferfi] = arsd[ksp].vvvf[0]; i++; 

k++; 1 

) 

wnn = wricctfd, buffer, nbuffer * sizeof(float)); 

if ( wnn != nbuffer * sizeof(float) ) 

I 

fprintftstderrrwrite has failed at point 23.W); 

close(fd); 

rerurn(I); 

) 

J 

) 

clo5e(fd); 
retum(O); 

) 

setdr2(dd, dn, kx, ky, nx, ny) 
long dd, dn, kx, ky T nx f ny; 
C 

double temp, tmpl, tmp3, expQ; register long k f 1, m; 

float *hcp, *vcp, *ggm, *gxm, *gym, •xgm, *xxtn, *xym, *sxxn, *sym, rhgcn t sod; 

float *hcm, *vcm 1 *ggp» *gxp, *gyp, *xgp, *xxp, *xyp f *sxp, *syp, rhxen, sen; 

float *dxlp t *dylp, *dx2p, *dy2p, *duul, *auul, *cuvl, gugt, gusq. gvsq, shx; 

float *dxlm, *dylm. *dx2m. *dy2m, *dwl, •bwl. *bcn, gvgt, gugv, gtsq. shy: 

float tempi, tmpgm. tempu, tmpgt, tmpgx, tmpxx, tmpsx, *impg2. *tmpg4, tempw; 

float tcmp2, tmpgp, tempv, tmpxt. tmpgy, tmpxy, unpsy, *tmpg3, *tmpg5, *dusq; 

float *uuvf. dxlpk, dx2pk, dy I pk T dy2pk, dtp, die, dtm; 

float 4 wvf, dxlrak, dxlmk, dylmk, dy2mk; 

long kl lp, kl2p, k21p, k22p, bn; 

long kl Ira, kl2m, k21m, k22m, it; 

hep = wrkOO; vcp = wrkOl; hem - wrk02; vcm = wrk03; 

dxlp = wrk04; dylp = wrk05; dx2p = wrk06; dy2p = wrW7; 

dxlm » wrk08; dylm - wrk09; dx2m = wrklO; dy2m = wrktl; 

tmpg2 - wrkl2; trnpg3 = wrkl3; tmpg4 = wrkl4; rmpg5 = wrklS: 

dusq * and[kspl4usq: ben = wrkl6; 

uuvf = arsd[ksp].uuvf: vwf «= arsd[ksp].vwf; 
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for ( k = kvOhO; k; k« > 
{ 

m e mvOhO[k]; bcn[ml « 1.0; 

hcp[ra] • hvOhO(m) + optf.dhp[ksp) ♦ (dtp + die) * uuvfjm); 
bcm[m) * hvOhO(ra) + optf.dhmIksp] - (dtra - die) * uuvf[mfc 
vcp[m] • wOhO[m] + optf.dvp[ksp] + (dtp + die) * wvf[0]; 
Ycrnfm] ~ wOhOfmJ ♦ optf.dvm[ksp] • (dun - die) * vwflO]; 

it - scdn2(bcn,hcp,vcp v mllp k ml2p 1 m21pjn22p,dxlp. 

dy 1 p4x2p4y2p.dd4iukx,ky iix,ny ); 
if ( it != 0 ) renirn(it); 

it = scdn2(bcn,hOT,vcramllm/nl2m,m21m,m22m4xlin, 
dy 1 m,dx2m,dy 2m,dd,dn t kx t icy ^nx.ny); 

if (it !=0)return(it); 
for ( bn = 0; bn < bns; bn++) 

"{ 

ggm = optf.ggin[bit]; ggp - optf.gg>[bn]; 
gxm - optf.gxra[bnJ; gxp -optf.gxp[bn]; 
gyro » optf.gym[bn]; gyp » optf.gyp[bn]; 
xgm = optf.xgm[bn]; xgp = optf jcgp[bn]; 
xxm = optf.xxm[bn]; xxp = optfjcxp[bn]; 
xym =» optf.xym[bnj; xyp «= 0prfjcyp[bn]; 
sxm = opttsxm[bn); sxp = optf sxp[bn]; 
syra ss optf.sym(bn]; syp <= oprf.syp[bnj; 
for ( k = IcvOhO; k; k- ) 
( 

ra = mvOhO[k]; 

klip = ml lp[m]; dxlpk = dxlpfm]; 
k!2p » ml2p[mj; dx2pk = dx2p[m]; 
k21p - m2ip[mj; dy lpk * dylp[tn]; 
k22p o m22p[m]; dy2pk = dy2p{ra]; 
kllm = mllmfm]; dxlmk «=» dxlro[ra]; 
kl2m = ml2m[m]; dx2mk = dx2nj[mj: 
k21m = m21m[m]; dylmk = dylm[m]; 
k22m - m22m[m]; dy2mk = dy2m[mj; 
tempi - dx2pk * ggp[kl lp] + dxlpk • ggp(k!2pj; 
terop2 - dx2pk * ggpflc21p] + dxlpk * ggp[k22p); 
tmpgp =a dy2pk * tempi + dy lpk* temp2; 
tempi * dx2mk * ggmfcl 1m] + dxlmk * g#n[ki2m}; 
temp2 = dx2mk * ggm[k21mj + dxlmk * ggm[k22mj; 
tmpgm - dy2mk * tempt + dylmk * tcmp2; 
tmpgt = tmpgp - tmpgm; 

tempi = dx2pk * gxpfkl lp] + dxlpk * gxp(kl2p); 
tcmp2 « dx2pk * gxplk21p] + dx lpk * gxp[k22p]; 
tmpgp = dy2pk * tempi + dy 1 pk * temp2; 
tempi = dx2mk • gxm[kllm] + dxlmk * gxm[kl2m]; 
temp2 s dx2mk • gxm[k21m] + dxlmk * gxm[k22ra]; 
tmpgm = dy2mk * tempi + dylmk * ccmp2; 
tmpgx * dtp * tmpgp + dtm * tmpgm; 
tempi a dx2pk • gyppcl lp] + dxlpk * gyp(kl2p]; 
temp2 - dx2pk * gyp[k21p] + dxlpk ♦ gyp[k22p]; 
tmpgp * dy2pk * tempi + dy lpk * temp2; 
tempi = dx2mk * gyrn[klim] + dxlmk ♦ gym[kl2mj; 
temp2 = dx2mk * gyro(k21m] + dxlmk * gym[k22m]; 
tmpgm x dy2mk * tempi + dylmk * temp2; 
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nxtdn = nx * dn; 

xoiin = -kx; xmax = nx - kx - 1; 

ymin *= -ky; ymax = ny - ky - 1; 

{register long k, kOhO, »rmll, *rml2, *rm21. *rm22; 

register float *rxc. *rdxl, *rdx2; 

register float *ryc, *rdyi t *rdy2; 

rmll - ml 1; rml2 = ml 2; rm21 => m21; rm22 - m22; 

rxc = xc; idxl = dxl; rdx2 = dx2; 

rye = yc; rdyl = dyl; rdy2 = dy2; 
for(k = kvOhO;k;k-) 
{ 

kOhO^ravOhOfk]; 

if ( rxcfkOhO] < xmin ) rxc[kOh0] = xmm; 

else if ( rxc[k0h0] > xmax ) rxc[k0h0] = xmax; 

if ( rycfkOhO] < ymia ) ryc[k0h0J « ymin; 

else if ( ryc[k0h0] > ymax ) ryc[k0h0] = ymax; 

xcr«rxc[kOhO]ydn; 

ycr = ryc[k0hO] / dn; 

mx « floor((double)xcr); 

my - floor((doubIe)ycT); 

rdxl[k0h0] * xcr - mx; 

rdyl[k0h0] = ycT- my; 

rdx2[kOi03 » 1.0 - rdxl[k0b0]; 

rdy2[k(»iQ] ■ 1.0 - rdyl[k0h0]; 

mx = kx + dn * mx; 

my = ky +dn *my; 

nnll[k0h0] = my * nx + mx; . 

nnl2[k0h0] = rmli[k0h0]i 

if ( dxl[k0b0] 0.0 ) rml2(kOhO] « rml2[k0h0] + dn; 
rm2l[k0h0] - rml I[k0h0]; 

if ( dy I[k0h0] !- 0.0 ) rm2l[k0h0] « rm21[kOhO] + nxtdn; 
rm22[k0b0J « rml I[k0h0]; 

if (dxl[k0b0] !-0.0)nn22[k0h0] =rm22[k0h0] +dn; 
if (dyl[k0h0] != 0.0 ) nn22[kOhO] =rm22[k0h0] + nxtdn; 
11 

rctum(O); 

) 

if<dn = (dd+dd)) 
( 

nxtdp s= roc * dd + dd; nxtdm« nx * dd - dd; 

xmin o dd - kx; xmax - nx - dd - kx - 1; 

ymin « dd - ky, ymax = ny - dd - ky - 1; 

(register long k. kOhO. *rml 1, *rml2, ♦rm21, ♦rm22; 

regisier float *rxc. *idxl. *idx2; 

register float *ryc *rdyl, *rdy2; 

nnll = mll;rml2»ral2; rm21 = m21; rm22 = m22; 

rxc = xc; rdxl = dxl; rdx2 = dx2; 

rye a yc; rdyl = dyl; rdy2 =» dy2; 

for(k = kv0h0;k;k») 

{ 

k0h0omv0h0[kl; 

if ( rxc[k0h0] < xmin ) rxc[k0h0] = xmin; 
else if ( rxc[k0h0] > xmax ) rxc[k0h0) = xmax; 
if ( rycIkOhO] < ymin ) rycfkOhO] « ymin; 
else if ( ryc[k0h0] > ymax ) rycfkOhOJ = ymax; 
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tmpgy = dtp * tmpgp ♦ dnxi * tmpgm; ( 
tempi = dx2pk * xgp[kl lp) + dxlpk * xg>[kl2p]; 
temp2 * dx2pk * xgp[k21p] + dxlpk * xgp[k22pj; 
tmpgp =» dy2pk * tempi + dylpk * tctnp2; 
tempi » dx2rak * xgmfkl Im] + dxlmk * xgm{kl2m]; 
tetnp2 = dx2mk * xgm[k21m] + dxlmk * xgra{k22m]; 
tmpgra = dy2mk * tempi + dylmk * tcmp2; 

cmpxt = tmpgp - tmpgm; } 

tempi = dx2pk * xxp[kl lp] + dxlpk * xxp[kl2p]; 
texnp2 » dx2pk * xxp[k21p] + dxlpk * xxp[k22pj; 
tmpgp =s dy2pk • tempi + dy 1 pk * temp2; 
tempi s dx2mk *xxm[k 11 m] + dxlmk * xxmjkl2m]; 
temp2 = dx?mk * xxm[fc21m] + dxlmk * xxro[k22mj; 
tznpgm = dy2mk * tempi + dylmk * temp2; 
tmpxx = dtp * tmpgp + dtm * tmpgm; 
tempi » dx2pk * xyp[kl lp] -f dxlpk * xyp[kl2ph 
temp2 « dx2pk * xyp[k21p] + dxlpk * xyp[k22p); 
tmpgp - dy2pk * tempi + dylpk * tcmp2; 

tempi •dx2mk*xym[kllm] + dxlmk *xym[kl2m]; } 
temp2 ~dx2rak * xym[k21ra] + dxlmk * xym[k22m]; i - 1; jl 

tmpgm »dy2mk* tempi + dylmk * temp2; for(jy = 

tmpxy = dtp * tmpgp + dtm * imp gnu { 
rhgen = rhg * bcn[m]; rhxen « rhx * bcn[m]; 
gtsq * rhgen * tmpgt * tmpgt + rhxen * tmpxt • tmpxt; 
gugt - rhgen * tmpgx * tmpgt + mxen * tmpxx * tmpxt; 
gvgt o rhgen * tmpgy * tmpgt + rhxen * tmpxy * tmpxt; 
gusq = rhgen * tmpgx * tmpgx + rhxen * tmpxx * tmpxx; 
gugv = rhgen * tmpgx * tmpgy + rhxen * tmpxx * tmpxy; 
gvsq = rhgen * tmpgy * tmpgy + rhxen * tmpxy * tmpxy, 
temp « (arsd[ksp].psq + arsd[ksp].qsq * arsd[k$p].dusqlm]) * gtsq; 
tmpl » arsdptsp]jr * exp((double)(-1.0 * temp)); 
tmp3 = arsd[ksp].r * exp((doublc)(-3.0 * temp)); 
duul[m] -= gugt * tmpl; 
dwl[0] -= gvgt* tmpl: 
aaul[tn] += gusq ♦ tmp3; 
cuvl£m] +* gugv * trap3; 
bwl[0] 4= gvsq * tmp3; 

tempi » dxlpk * sxpflkl lp] + dxlpk * cxp[kl2p]; 
temp2 = dx2pk * sxp[k21p] + dxlpk * sxp{k22p]; 
tmpgp = dy2pk * tempi + dyl pk * temp2; 

tempi o dx2mk * sxmfkl lm] + dxlmk * sxm[kl2m]; ) 
tcmp2 « dx2mk * sxm(k21m] + dxlmk * sxm[k22m]; i= I; jl 

tmpgm = dy2mk* tempi + dylmk * temp2; for(j y! 
tmpsx = dtp * tmpgp + dnn * tmpgm; I 
tempi = dx2pk * syp[kl lp] + dxlpk * $yp[kl2p]; 
temp2 a dx2pk * syp|k21p) + dxlpk * syp[k22pj; 
tmpgp s dyipk • tempi + dy 1 pk * temp2; 
tempi = dx2mk * sym[kl lm] + dxlmk * symfkl2m]; 
temp2 = dx2mk * sym(k2tmj + dxlmk * sym[k22m]; 
tmpgm = dy2mk * tempi + dylmk * temp2; 
tmpsy - dtp * tmpgp + dtm * tmpgm; 

temp m tmpsx * tmpsy; tmpg2[m] += 0.5 * temp * temp; ) 
temp - tmpsx; tmpg3[m] temp * temp; if ( dn 

temp tmpsx - tmpsy; tmpg4(m] 0.5 * temp * temp; i - mv 

temp = tmpsy; unpg5[m]+- temp* temp; jl=dd 



j »jl;jl *=nhtdn; 

for ( tx = 0; ix<mh; ix++) 

( 

mv0h0(i]=j; 
i++;j+=dn; 



i-l:jl = l; 

for(jy = l;jy<mv;jy++) 

j- jl; jl +*nhtdn; 
for ( ix = I; ix < mh; ix++ ) 

invmhm|il=i 
mvphpfi] = j + nhpl * dd; 
i-H-; j +=dn; 



-1; 

* 0; jy < mv; jy-H- ) 

j=jl;jl+=nhtdn; 
for(ix = l;ix<mh;ix++) 

mv0hm[G=j; 
mvOhp[i]=j + dn; 
^ H-*-;j+=dn; 

= dn * nh + 1; 
» l;jy<mv;jy++ ) 

j=jl;jl +«nhtdn; 
for ( ix = 1; ix < mh; ix++ ) 

mvphmp] ■ j; 
mvmhpp] = j-nhml ♦ dd; 
+=dn; 

} 

= dn*nh+ 1; 
= l;jy<mv;jy++) 

j=jl;jl*=nhtdn; 
for ( ix = 0; ix < mh; ix++ ) 

rDvpht^i} = j; 
nrvmhOfi] o j - nhtdn; 
j += dn; 

= dd ) rtnim(O); 
♦mh-H; 
*nh + dd+ 1; 



) 

i = 1; jl 
tor(jy 
{ 
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) 

) 

for<k = kvphp;k;k--) 
{ 

arsd[ksp].g2sq[mvphplkl] = unpg2[mvphp(k)] + anpg2[mvmhrn[k]l; 

} 

for(kofcvOhp;k;k-) 
( 

arsd[ksp].g3$ojrav0hpfk]] = tmpg3[mvOhp[k]] + tmpg3[mv0hm[k]]: 

} 

for ( k = kvmhp; Iq k- ) 
I 

artd[k$p].g4«|[mvnihp[k]] = tmpg4[nQvmhp[k]] + txnpg4[mvphm[k]}; 

for(k = kvmhO;k;k-) 

{ 

arsd[k$p].g5sq{mvmh0[k]] = mipg5[mvmh0[k]] + tmpg5[mvph0[k]]; 
retum(O); 

) 

sedn2(bcru he, vc, ml 1, m\2 t m21, m22, dxl, dy l ( dx2, dy2, dd. dn, kx. ky, nx, ny) 
long *ml 1, *ml2, *m21, *m22 t dd f dn, kx, ky, nx. ny; 
float »bcn, *hc, »vc, »dxl f Myl, *dx2, *dy2; 



/* V 

/* This subroutine perform the following functions. */ 

/* ♦/ 

/* i. The vector field */ 

!* ♦/ 

/* { (hc[k]>vc[k]) He — 1 kvOhO } */ 

/* */ 

/* is transformed into the vector field V 

/* •/ 

/* ( <xc[k].yc[k]) I ic = 1, kvOhO } */ 

/* */ 

/* using me relations */ 

/* V 

/•-... xcDc]-«-kx+-tu--*<]hc^ V 

/* */ 

/* ycfk] = ky + tau * (vc[k] - 1.0); k= 1 kvOhO. */ 

/* */ 

/* 2. Integer valued fields */ 

/* V 

r { ml l[k], ml2[kj, m21[k], m22[k] t k * 1 kvOhO J •/ 

/* */ 

/* are determined such that the metrix V 

/* •/ 

/* m21[k] m22fk] V 

/* */ 

/* mll[k] m!2[k] */ 

/* ♦/ 

/* forms agrid cell forevery k= 1 kvOhO. */ 

f V 

f* 3. Real valued fields */ 
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f* l dxlfk]. dylfk], dx2[k). dy2[lc] I k = 1 kvOhO ) */ 

!* */ 

!* are determined such that the function value f(xcf k],yc(k]) V 

f* is a bilinear interpolation of its values at the grid points */ 

r v 

A* f(ml l[k]). f(ml2M). «m21[k]). f(m22[k]) •/ 

r *i 

/* defined by the relations */ 

/* f(xc[k].yc[k]) » dy2(k] * (dx2(k] • f(ml l[k]) + dxl[k] * fCmI2(k])) •/ 

r ./ 

/* + dylfkj * (dx2fk] • f(m21fk]) + dxl[k] * f(m22(k])). */ 



double floorO; 

float thre, thri t xmint, xmaxt, Ymint, ymaxt; 

long mx, my. mxx, myy\ nxtdm, nxtdp, nxtdn; 

float xmin, xmax, ymin, ymax, *xc, *yc, xct, yen 

xc«dxl; yc-dyl; 

thre* tau *dn; thri» 1.0/thrc; 

xmin «= -kx; xnrint = xmin + due; 

xmax » nx - kx - 1; xmaxt » xmax - thre; 

ymin » -ky; ymint = ymin + thre; 

ymax = ny-ky- 1 ; ymaxt a ymax- thre; 

(register long k, kOhO; 

register float »rxc, Vhc, *ryc, *rvc; 

rxc = xc; rhc = he; rye - yc; rvc vc; 

for(k = kvOhO;k;k-) 

{ 

k0h0*mvOh0[k); 
rxcfkOhO] = tau * (rhc[kOhO) - 1.0); 
ryc[k0h0] = tau * (rvcfkOhO] * 1.0); 
if (rxcfkOhO] <= xmin) 

bcnfkOhO] « 0.0: 
else if ( rxcfkOhO] < xmint ) 

bcn[kOhOJ = bcnfkOhO] + (rxcfkOhO] - xmin) * thri 

- bcn[k0h0J • (rxcfkOhO] - xmin) • thri; 
if ( rxcfkOhO] >= xmax ) 

bcnfkOhO]«0.0; 
el se if ( rxc [kOhO] > xmaxt ) 
bcnfkOhO] - bcnfkOhO] + {xmax - rxcfkOhO]) * thri 

- benf kOhOJ * (xmax - rxcfkOhO]) * thri; 
if ( rycfkOhO] ymin ) 

benf kOhO) = 0.0; 
else if ( rycfkOhO] < ymint ) 
bcnfkOhO] = bcnfkOhO] + (rycfkOhO] - ymin) * thri 

- bcnfkOhO] * (rycfkOhO] - ymin) * thri; 
if ( rycfkOhO] >= ymax ) 

bcnfkOhO] -0.0; 
else if ( rycfkOhO] > ymaxt) 
bcnfkOhO] - bcnfkOhO] + (ymax - ryc[k0h0]) ♦ thri 
^ ^ - bcnfkOhO] * (ymax - rycfkOhO]) • thri; 

if(dn = dd) 
( 
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xcr » (ryc[k0h0) + rxc[k0h0]) / dn; 
ycr » (ryc[k0h0) ■ rxc[kOhO])/dn; 
mx = floor{(doub!e)xcr); 
my = floor((doublc)ycr); 
rdx 1 [kOhO] = xcr - mx; 
rdyl[k0h0) = ycr-my; 
rdx2[k0b0] » 1.0- idxltWhOJ; 
rdy2[k0hO] => 1.0 - idylfkOhO); 
mxx kx + dd * (mx - my); 
rayy - ky + dd * (mx + my); 
rrnl ] [kOhOI = myy * nx + mxx; 
rml2[kOhO) = rmll[k0h0]; 

if ( dxl[k0h0) != 0.0 ) rml2[kOhO] - rml2[k0h0] + nxidp; 
rm21[k0h0) » raill[k0h0]; 

if ( dyl[kOhO] != 0.0 ) rm21[kOhO] = im21(k0h0] + nxcdm; 
rm22[kOh0] = rmll[k0b0); 

if ( dxilkOhO] != 0.0 ) rm22[kOhO] - rm22lkOhO] + nxtdp; 
if ( dyl[k0h0] != 0.0 ) rm22[kOhO] - im22[kOhO] + nxtdm; 
)} 

rcturn(0); 

} 

iccumO); 

) 

serin 1 (dd, dn, mh, mv, nh) 
long dd. dn, mh, mv, nh; 
I 

register long ij.ixjy.jl; 
long nhtdn, nhpl, nhml; 
nhtdn = nh * dn; 
nhpl = nh + 1; 
nhml = nh - 1; 
if (dn*=dd) ( 

kv0h0= mv * mh; 

kvphp = (mv - 1) * (mh - 1); 

kvOhp = mv * (mh - 1); 

kvmhp o (mv - 1) * (mh - 1); 

IcvmhO = (mv - 1) * mh; 

Icvmhm » (mv - 1) * (mh • 1); 

fcvOhm- mv * (mh - 1); 

kvphm - (mv - 1) * (mh - iy, 

kvph0-(mv-l)* mh; 
)ekcif(dn — (dd + dd))( 

kv0h0 = mv * mh -Krav- 1) * (mh • \X 

kvphp = (mv - 1) * (mh - 1) + (mv - 1) • (mh - IX 

kvOhp= mv ♦(mh - l) + (mv- l)*(mh-2): 

kvmhp = (mv - I)*(mh- l) + (mv- 1) • (mh - 1); 

kvmh0 = (mv -l)* mh + (mv ■ 2) * (mh - 1); 

Icvmhm » (mv - 1) * (mh - 1) + (mv - 1) * (mh - 1); 

kvOhma mv *(rah- l) + (mv - 1) * (mh - 2); 

kvphm = (mv - 1) * (mh- 1) +(mv - 1) ♦ (mh - 1); 

kvphOs (mv - 1) * mh + (mv - 2) • (mh - 1>, 
) else rrturn(l); 
t*l;jl*l; 

for ( jy » 0; jy < mv; jy+4 ) 
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for ( jy = 1; jy < mv, jy++ ) 
{ 

+=» nhtdn; 
for ( ix « 1; ix < rah; ix++ ) 
{ 

ravOhOril^j; 
i-HKj+sdn; 

) 

) 

i = (mv-l)*(mh-l)+I; 
jl =dd*nh + dd+ 1; 
for ( jy = 1; jy < mv; jy++ ) 
{ 

j=jl; jl += nhtdn; 

for ( ix = 1; ix < mh; ix++ ) 

I 

mvmhm[i] = j; 
mvphp[i] » j + nhpl * dd; 
i+-*-;j+=s dn; 

} 

1 

i = mv * (mh - 1) + 1; 
jlodd*nh + dd+l; 
for(jy = 1; jy <mv;jy++ ) 
I 

j=jl; jl += nhtdn; 

for ( ix - 2; ix < mh; ix++ ) 

{ 

mv0hm[i] = j; 
mv0hp[i] o j + dn; 
i++;j+»dn; 

} 

} 

i = (mv-l)*(mh- 1)+1; 
jl = dd*nh + dd + 1; 
for(jy= l;jy <mv;jy++) 

( 

j.a.jl; jl += nhtdn; 

for ( ix -=* 1; ix < mh; ix++ ) 

( 

mvphmli) =j; 

mvrnhpfij =j - nhml * dd; 

i++:j+=dn; 

) 

) 

i = (mv - 1) * mh + I; 
jl*(dn+dd)*nh + dd + l; 
for(jy = 2;jy<mv;jy++) 

J — jl; jl += nhtdn; 

for ( ix e 1; ix < mh; ix++ ) 

{ 

mvph0[ij m j; 
mvmhOfiJ «j- nhtdn: 
i++; j+adn; 
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) 



I 

rciurn(O); 



) 



conjgitrknf, feps, kmax) 
long kmax; 
float *rknf, fcps; 
{ 

register long k, kOhO; long kfc, ksv, ksc, nsc; 
float alphak. betak. re 2d, fhtp, teps; 
float *ru. *pu, *qu. *zu, *du, *ud, *ai; 
float *rv. *pv, *qv, *rv, *dv, *vd, *bt; 
long •mll.*ml2,*m21, a tf22; 
float 'wll, *wl2, *w21. *w22; 
double ak, akmi => 1.0, bk, dtemp, sqrtO; 
dtemp o 0.0; 

for ( ksp = 0; ksp < nsp; ksp++ ) 

ru = arsd[ksplrucv; rv = arsdfksp] jvcv; 
pu = arsd[ksp].pocY; pv = azsd[ksp].pvcv; 
qu = arsd[ksp].qucv; qv = arsd[kspj.qvcv; 
du s arsd[ksp].dnvf; dv o arsdfksp] .dwf; 
ud - arsd[ksp].udvf; vd = arsdfkspj.vdvf; 
for(kakv0h0;k;k-) 
{ 

k0h0 = mv0h0[k]; 

rufk0h0]=du[k0M>J; 

pulk0b0]»udlk0h0j; 

) 

rv[0] = dv[0]; 
pv[0]=vd[0]; 
matrvrO: 

nsc « arsd[ksp].cns; 

if ((nsp>l)&&(nsc>0)) 

( 

f or ( ksc = 0; ksc < nsc; ksc++ } 
I 

ksv = arsdfksp].cnv[ksc]; 

mil = and[ksp] jnl 1 [ksc]; ml2 = arsd[ksp].rnl2[ksc]; 
m21 » arsdflcspj.m21[kscj; m22 arsd[ksp].m22[ksc]; 
wll = and[ksp].wll[ksc]; wl2 = aisd[ksp].wl2[ksc]; 
w21 = arsd[ksp].w21[ksc]; w22= arsd[ksp].w22[kscj; 
ud = arsd[ksv].udvf; vd = arsdfksvj.vdvf; 
for(k = kv0h0;k;k-) 
( 

k0h0 = niv0h0[k]; 

qu[k0h0] — wlipcOhO] * ud[mll[kOhO)] 
+ w!2[k0hO] * ud[ml2[k0h0]] 
+ w2irkOhO] * ud[m21[k0h0]] 
+ w22[k0b0] * ud[m22[k0h0]]; 



I 

qv[0J -= fcvOhO ♦ aisd[ksp].wrnn[kscj * vd(0); 



ru = arsd[ksp).rucv; rv = arsd[ksp) jvcv; 
qu = arsd(ksp].qucv; qv - arsd[ksp].qvcv; 
zu = arsd|ksp].zucv; zv = arsdlkspj.zvcv; 
ai = arsd[ksp].ainv; bi m arsd[ksp}.binv; 
far(k-kvOhO;k;k-) 
I 

k0h0 = mv0h0[k]; 
rufkOhO) ~ ni(kQh0] - qu[k0h0]; 
rufkOhO] o aifkOhO] • m[kOhO]; 
dicmp = dtemp + ru(k0h0] * ru[k0h0]: 

} 

rv{0] « rvfOj - qvfO); 
zv[0] = bi[0] * rv[0J; 
dtemp a dtemp + rv[0] • rv[0J; 

) 

*rknf = sqn(dtemp); if ( *rknf <= feps ) return; 
fnsp « nsp; teps = fcps / fhsp; 
for ( ksp = 0; ksp < nsp; kspV+ ) 

ru « andfksp] jwv; rv = arsdfksp] jvcv; 
pu m arsdfksp] pucv; pv = arsdfkspj.pvcv; 
qu = axsd[ksp].qucv; qv = arsdfksp] .qvcv; 
zu = arsdlkspl.zucv; zv = arsd[ksp}2vcv; 
ud = arsdfkspj.udvf; vd = arsdfksp] .vdvf; 
ai = arsd[ksp].ainv; bi = arsdfkspj.binv; 
for ( kit o 0; kit < kmax; lrit++ ) 
( 

dtemp = 0.0; 
for<k»kv0h0;k;k-) 



I 

k0h0»rav0h0[k]; 

dtemp * dtemp + ru[k0h0] * ru[k0h0]; 

) 

dtemp = dtemp rv[0} * rv[0]; 

rezd - sqn(diemp); if ( rezd < teps ) break; 

ak = 0.0; 

for(k = fcv0h0;k;k~) 
( 



) 



kOhO = mvOhOfk); 
ak^ak+rufkOhO]' 



zufkOhO); 



'zv[0]; 



ak « ak + rv[0] ' 
if (kit> D) 
{ 

bcuk= ak/akml; 
for ( k = kvtihO; k; k») 



{ 



kOhO^mvOhOM; 
pufkOhO] - pu[k0h0] * betak + zu[kOhO]; 

) 

pv[0] - pv(01 * bcuk + zv[0]; 
I else { 
for(k*kv0hO;k; k-) 
{ 

kOhO = rovOhOfk]; 
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pu[kOhO] = 2u[k0h0J; 

) 

pv[0] = zv[OJ; 

I 

manvrO; 
bk»0.O, 

for(k = kvOhO; k;k~> 
{ 

kOM>=mvOhO[k]; 

bk = bk ♦ pu[kOhO] * qufkOhO]; 

) 

bk = bk+pv[0)*qv[0]; 
alphak = ak/bk; 
for(k = kvOhO;k;k») 
{ 

IcOhO = mvOhO[kJ; 
udlkOhO] 4= alphak * pu[kOhO); 
m[lcOhO] -= alphak * qulkOhOJ; 
zu[kOhO] « ai[kOhO] * ru[kOhOJ; 

) 

vd[0] +« alphak * pv[0]; 
rv[0]-= alphak *qv[0]; 
zv[0] = bi[O]*iv[0); 
akml = ak; 

) 

) 

) 

setmtx(dd, dn, nh, nv, rkf) 
long dd» dn, nh t nv; 
float *rkf; 
{ 

register long k, m, knil, km2; 
long s, kl, *ml, *m2, itst; 

double dutmp. dvtmp, dutdu, temp, tmpi, tmp3, sqnO, expO; 

float *suma, *smnd. *uuvf, *utvf, *duvf, *auul t *bwl , sen; 

float *sumb, *smvd, *wvf, *vtvf, *dwf, *cuvl ( *ainv ( *binv; 

float*gg, »auu. scssq, scs, scd; 

uuvf = ar$d[ksp].uuvf; vwf « arsdfksp].vwf; 

otvf =arsd[ksp].utvf; vtvf » arsd[ksplvtvf; 

duvf ~ arsd[ksp].duvf; dwf - aTsd(k$p).dvvf; 

suma « arsd[kip].nicv; sumb and flip] jycv; 

smud = arsd(ksp].zucv; sinvd = aisd[ksp].zvcv; 

ainv = arsd[ksp).ainv; binv o arsd(kspj.binv; 

auul = and(ksp].auul; bwl = arsd[ksp].bwl; 

cuvl = andlksp].cuvl: sumb[0) = 0.O; srnvd[0) = O.O, 

for ( k = kvOhO; k; k- ) 

{ 

m = mvOhO[k]; 
suma[oo]e gul; 
sm\id[ra] = - gun; 
sumbfOj -Ha gvl; 
sravdjoj -= gvn; 

J 

if ( ( itst = servtr(suma, sumb. smud. smvd, dd. dn, nh, nv) ) != 0 ) 
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I 

fprinif(stderr. <a Subroutine setmoc: secvtr "); 
fprintf(stderr,"rcturoes value equal to %d.\a", itst); 
xetum(iist); 

} 

sen -da; scd » sqrt(two) * dd; 
sens l.0/scn;scd- 1.0/ scd; 
for(s»2;s<6; s++) 
{ 

switch (s) 
< 

case 2: 

kl = kvphp; 

ml smvmhm; 

m2 = tnvphp; 

gg = arsd[ksp].g2sq; 

auu » arsd[ksp].auu2; 

scs = scd; 

break; 
case 3: 

kl =kvOhp; 

ml = mvOhm; 

m2 « mvOhp; 

gg = arsd[ksp].g3sq; 

auu - arsd[ksp].auu3; 

scs = sen; 

break; 
case 4: 

kl = kvmhp; 

ml * mvphrn; 

xn2 » mvinhp; 

gg « axsd[kipj.g4sq; 

auu = arsd{k5p]^uu4; 

scs = scd; 

break; 
case 5: 

kl =kvmhO, 

ml = mvphO; 

m2=s mvmhQ; 

gg = arsd[ksp].g5sq; 

auu o arsd[ksp].auu5; 

scs « sen; 

break; 

} 

scssq = scs* scs; 
for(k = kl;k;k") 
( 

kml * rol[k]; km2 « m2[k]; 

dutmp = scs * (uavf{km2] - uuvf[krn1]); dutdu = dutmp * dutmp; 
temp o (arsd[kspl^sq + arsd[ksp).bsq * gg[km2]) * dutdu; 
imp I « arsdlksp].a * scssq * exp((double)(-l.O * temp)); 
tmp3 - arsdlkjpj.a * scssq * exp((doub!e)(-3.0 * temp)); 
auu[km2) » - tmp3; sumafkml] +- tmp3; suma[km2] 413 ^P^ 
duvfpcmlj +a uuvf[km2] * tmpl; smud[kml] -= tmpl; 
duvf[km2] += uuvflkmlj * tmpl; smud[km2] -= tmpl; 
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} 

I 

temp = 0.0; 

for(k = kvOhO;k; k-) 

m - mvOhOfkl; 
auu 1 [m] ■+*» suma[mj; 
duvf[m] +- utvf[m] + smud[m] * uuvflm]; 
temp » temp + duvflm] * duvf[m); 

) 

bwltO] += sumb[0]; 
dwflOl += vtvf[0] + smvd[0] * wvf[0]; 
temp = lemp ♦ dvvf[0] * dvvf[0]; 
*rkf = *rkf + sqn(ieiEp); 
for(k = kvOM>.k;k~) 
( 

m = mvOhO[k]; 
ainv[m) =1.0/ auul[m]; 

binv[0] = 1.0/bvvl[0]; 
retum(O); 

} 

matrvrO 
( 

register long k; float *pu, *pv, *qu, *qv; 
float *avOhO, *avphp. *avOhp r *avmhp, *avmhO„ *cv0h0; 
avOhO = arsd(kspj.auul; cvOhO» arsd[ksp].cuvl; 
avphp = arsd[kspj.auu2; avOhp = arsd[ksp].auu3; 
ivmhp - arsdfcsp] .auu4; avmhO = arsdlksp].auu5; 
pu = arsd[kspjpucv; pv = arsd[ksp].pvcv; 
qn - arsd[ksp].qucv; qv » arsd[ksp].qvcv; 
[register long kOhO; 
qv[0] = and[ksp].bwl[0] * pv[0]; 
far(k=kvObO;k;k-) 
( 

kOhO « mvOhO[k]; 

qufkOhO) = av0h0[k0h0] * pu[kOhO] -»- cvOhOftOhO] * p 
qv[0) = qv(0] + cvOhO{k0hO] * pu[H)hOJ; 
)) 

(register long kmhm, kphp; 
for(k = kvphp;k;k-) 

kmhm *» rxrvmhm[kj; kphp <■ mvphpfk]; 
qu[kmhm] = qufkxahm] + avphplkphp] * pu[kphp]; 
)) 

{register long kOhm, kOhp; 
for ( ko kvOhp; k; k- ) 
( 

kOhm = mvOhm[k]; kOhp = mvOhp(k); 
qu[k0hm] = qu[kOhm) + avQhp[k0hp] * pufkOhp]; 
)) 

(register long kphm, kmhp; 
for ( k - kvmhp; k; k- ) 
I 



[01 0 5] 



if ( vcfktmp] > fnv ) vcfktmp] = fnv; 

1 

if(dn«dd) 

' for(k = kv0h0;k;k«) 
( 

ktmp = mvObO[k]; 

nhs = he[ktmp] / fdn; rthm = floor(rth$); 

nvs = vcfktmp] / fdn; man = floor(rtvs); 

dhl[ktxnp] « nhs - rthm; dh2[kanp] » 1-0- dhl[ktmp]; 

dvlfktrnp) » rtvs - rtvm; dv2[ktmp] = 1.0 - dvlfktrnp]; 

nhm = rthm * dn; rtvm = rtvm * dn; 

nhp = rthm; if ( rthp < nhml ) nhp « rthp + dn; 

nvp =c rtvm; if ( rrvp < nvml ) rtvp = itvp -f dn; 

ml l[ktmp] = nh * rtvm + rthm + 1; 

ml 2 [ktmp] = nh * rtvm + nhp 1; 

m21[ktmp] o nh * rtvp + rthm + 1; 

m22fktmp] - rth * rtvp + rthp + 1; 

if((nhm < 0)ll(nhm > nhmi)lt(rthp < 0)II(nhp > nhml)) 

{ 

tprintffstderr, "hc[%d] = %f; \kunp, hefktrop]); 
fprimf(stdcrr l "dhlf%d] =%f; \tamp. dhl[ktrap]); 
frrtotfiCstderr, "dh2[%d] = %f; knnp, dh2[ktmp3); 
fyrintftstderr. "rthm t= %d; ".rthm): 
ffcrintf(aderr, "rthp = %d;\n", rthp); 
rcturn(l); 

) 

if((nvm < 0)ll(rtvm > nvml)il(rtvp < 0)U(nvp > nvmi)) 
( 

rprintf(stderr, w vc[%d] « %f; M , ktmp, vc[ktmp]); 
fprintf(stdexr,Mvl[fcd)-%f; \ ktmp, dvl[ktmp]>. 
fprintflstderr, N dv2[%d] = %f; *. ktmp, dv2[ktmp]); 
fprintf(stdcrr, "rtvm - ftd; *\ rmn); 
fyriAttfCstderr. "rtvp = %d;\n*\nvp); 
rcoirn(l); 

) 

) 

retum(0); 

) 

if(dn = (dd + dd)) 
I 

foT ( k = kvOhO; k; k-) 
( 

kmjp»mv0h0[k]; 

nhs - (vc[kmip] + hc[ktmp]) i fdn; 

rtvs = (vcfktmp) - hc(ktmpl) / fdn; 

nhm = floor(rth$); rtvm = floonrrvs); 

dhl[ktmplmrths-rmtn; dh2[ktmp] = 1.0 -dhl [ktmpl; 

dvl[ktznp] s nvs - rtvm; dv2[ktmpj - 1.0 - dvl[ktmpj; 

rthp «a rthm - rtvm; rtvp = rthm + rtvm; 

nhm » rthp * dd; rtvm ■ rtvp * dd; 

tmpl o nh * rtvni -f-rthm ♦ 1; 

tmp2 o nh * (rtvm + dn) + nhm ■+ 1; 

tmp3 ■« nh * (nvm + dd) + nhm + dd + 1; 

tmp4 = nh * (rtvra + dd) ♦ nhm - dd + 1 ; 
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kptun = mvphm(k]; kmhp = rovinhp[k]; 
qufkphrn] = qu(kphra) + avmhp[kmhp] * pu[krahp); 
)) 

(register long lcphO, kmhO; 

for(k«lcvmhO;k;k-) 

( 

kphO = mvphOfk]; kmhO = mvmhO(k]; 
qufkphO] = quftphO] + avmhOf kmhO] * pu[kmhO); 
)) 

(register Jong kmhm, kphp; 
for ( k = kvmhm; k; k- ) 
( 

kmhm = mvm)im[k]; kphp = mvphp[kj; 
qo(kphp] squ(kphp) avphp[kphp} * pu[kmhm]; 
)) 

(register long kOhm, kOhp; 
for(k = kvOhm;k;k-) 
{ 

kOhm - mv0hm[k]; kOhp « mvChp(k); 
qu[k0hp] = qu[k0hp] + avOhp[k0hp] * pufkOhm}; 

n 

(register long kphm. kmhp; 
for(k = kvphm;k;k- > 
( 

kphm = tnvphm[k]; kmhp = rnvrnhpfk]; 
qu(kmhp) = qu[kmhp] •»- avmhpfkmhp] * pu(kphm]; 
)} 

(register long kphO, kmhO; 
for(k«kvphO;k;k-) 

kphO « mvph0[k]; kmhO - mvmh0[k]; 
qu[kmhO] = qu[kxnhO] + avmhO{kinhO] * pufkphOl; 
}) 

) 

setind(hc r vc, mil, ml2,m21, m22, dhl, dvi, dh2, dv2.dd,dn, nh, nv) 
long •mil, •m!2» *m21. •m22, dd, dn, oh, nv; 
float *hc, »vc, •dhl, ♦dvl, ♦dh2. *dv2; 

/* */ 

/* This subroutine perform the foBowing functions. V 

/* . V 

/* 1. The input vector field ♦/ 

/> */ 

/* ( Chc(inv0hO[k]],vc[mv0h0[k]]) lk=l kvOhO } V 

r V 

/* is transformed into the current vector field V 

/* */ 

/* { (hc[mvOhO[kll,vc[mv0h0[k]l) I k - 1 , .... kvOhO } */ 

/* •/ 

/* using the relations */ 

/• */ 

/* hc(mv0h0(kl] = ra«(1.0jmn(nh4jc[inv0h0Ik]D) - 1-0; V 

/* */ 

r vc(mv0h01kl] » max(1.0 f min(nv,vc[mv0h0[k]])) - 1.0; ♦/ 
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/* fork-1 kvOhO. V 

r *' 

/* 2. Integer valued fields */ 

y* */ 

/• (mU[mvOhO[k]],ml2[ravOhOM],m21[mvOhO[k]].m^ */ 
/* k * I , kvOhO are determined such that the metrix */ 

r mll(mvOhO[k]] ml2(mv0b0tk]] */ 

/* *' 

/* m2l[mvOhO(k]] m22[mv0h0[kl] V 

/* *' 

/* forms a grid cell of size dn containing the vector */ 

/* (hc[mvOhQ[k]}, vc(mvOhO[lc)]) F for every k = 1 kvOhO. */ 

r *' 

/* 3. Real valued fields */ 
/* */ 

/* (dxl[mv0h0[k]], dy I[mv0h0[k]], dx2[mv0h0[kH, dy2[mv(&0[k)]). */ 

/* k=l,...,kvOW) arc determined such thai the function value */ 

r f(*c[mvOhO[k]).yc[ro^ *' 

/* its values at the grid points */ 

r */ 

I* f(mll[ravOhOM)) f(ml2[mv0h0[k]]) */ 

/♦ *' 

/• f(ai21[mv0h0[k]]) f(m22[mvOhO[k]]) •/ 

/• *> 

/» defined by the relations */ 

/* */ 

/* f(xc[mvOhO[k]], ycfmvOhOIk]]) - */ 

r •/ 

/• dy2[mv0h0[kl] ♦ C dx2[mvOhO[k]) • f(ml I[mv0h0[k]]) V 

/* */ 

/* + dxltmvOhOIklJ * f(ml2[mv0h0[k]D ) + */ 

/• V 
>» dyl[mv0hO[k]] * ( dr2[mvChO[kn * f(ra2Umv0h0[k]]) */ 

*/ 

/» + dxl[mvOhO[klJ * «m22[mv0h0M]) )• */ 

( 

float fnh, fhv; 
register long k, ktmp; 
double QoorO. nhs. revs, fdru 
long tmpl, tmp3, nhm, rtvm, nhml; 
long tmp2, tmp4, rthp t nvp, nvml ; 
nhml s nh - 1; nvml = nv - 1; 
fnh ■ nhml; fnv » nvml; fdn = dn; 
for(k-kv0h0;k;k-) 
I 

ktnrfp = mvOhOIk]; 
hc[konp]-»1.0; 

if ( hctkanp) < 0,0 ) hc[ktmp] ~ O.Ch 
if C hcjktmp] > fnh ) hc[ktmp] = fnh; 
vcfktmp) -» 1.0; 

if ( vc(ktmp] < 0.0 ) vc[ktmp] = 0.0; 
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if ( itvra = -dd > 

mll[ktmp] etmp2; 
else 

ml I [ktmp] - tropl; 
if ( rtvra = nvm 1 ) 

ml2[ktrap] = tmpl; 
else if ( Tthm « nhml ) 

uiI2[ktmp) = mip4; 
else 

ml 2( ktmp] » 0193; 
if ( rtvm = nvml ) 

m2I[kanp] stmpl; 
else if ( nhm = 0 ) 

m21[ktmp] » tmp3; 
else 

m21[ktmp] = tmp4; 
if ( rtvm >- nvml - dd ) 

m22[ktmp] ■ tmpl; 
else 

m22(ktmp] = txzzp2; 
if ( (nhm < 0) D (nhm > nhml) ) 
( 

fjpriAtf(9defr, "ch: dd = %d; \ddX 
r^rintf(stderr, "nhml = %d; M t nhml); 
f^rintf(stderr t "nhm = %d;\zT, nhm); 
rcmm(l); 

} 

if ( (rtvm + dd < 0) II (nvm > nvml) ) 
( 

fpriotf(«dcn\ "cv: dd = %4; *,ddX 
fjjrintf(stdar ( "nvml = %d; n , nvml); 
fyrintftstderr. "nvm = %d;\n M , nvm); 
rctum(l); 

) 

1 

return(O); 

) 

retuxn(l); 

} 

setvtr(suma, sumb, smud, smvd, dd, dn, nh, nv) 
float *suma, *sumb« *smud» *smvd; 
Ions dd.dn.nh.nv; 
( 

register long 1, k, ktmp; double dtzrtp, expO; 

long list, nsc, ksc, ksv, »ml I. *ml2, •m21, *m22; 

float tmpu, tuOO, nil 1, tul2» tu21, tu22, twll, tw2l, twl2, tw22, one » 1-5; 

float *utvf, *unvf, *hc, Mhl, *dh2> *wl 1, *wl2, *w00. remp, dlt, wxy. nhf; 

float *vtvf, *vw£ *vc. *dvl, *dv2, *w21, *w22, *dusq, wmn, wuv, nvf; 

utvf - arsd[ksp].utvf; he - wik05; nhf « nh - 0.5; 

vtvf - arsdflcspj.vtvf ; vc = wrk06; nvf ■ nv - 0.5; 

for(k-kvOh(hk; k») 

I 

ktmp a rnvOhOpc]; 

utvflkimpl « gun * aisd[ksp).uOvf[ktmp): 
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} 

vrvf[0] = kvOhO * gvo * arsd[ksp).vOvf[0); 

nsc » arsd[ksp]jcns; 

if < ( ns p < 2 ) II ( nsc < I ) ) retum(0] ; 

foi ( ksc « 0; ksc < nsc; ksc++ ) 

{ 

wmn = arsd[ksp].wmn[k$c£ 

wxy = arsd[ksp].wxytksc] * scln * sgmw; 

wuv = arsd[ksp].wuv[ksc] * scln * sgmw; 

dli =aisd[ksp].dlt03c]; ksv = and[ksplxnv[ksc); 

dhl = arsd[k$p].wl l[ksc]; dh2» arsd[krp].wl2[ksc]; 

dvl = arsd[kspl.w21[ksc]; dv2 = ared[ksp].w22[ksc); 

wll = antf[ksp).wU[ksc]; wl2 = arsd[ksp].wl2Iksc]; 

w2l = arsd[ksp].w21[kic]; w22 - arsd[ksp].w22{ksc]; 

rail » arsd[k*p].mi lfksc]; ml2 - tr5d[kip].ml2[ksc]; 

m2l = arsd[ksp].m21[ksc]; m22- usd(kspj.m22[ksc]; 

uuvf = arsd[ksp].uuvf ; wvf = arsd[ksp].vwf, 

for ( k = kvOhO; k; k- ) 

{ 

ktrap = mvOhOfk]; 

hc[ktmp] = hvOhOIktmpl + dlt * mivf[ktmp]; 
vcfJctmp] = wOh0[ktmp] + dlt * vwf[0J; 

Lf((itst = setind^vc4nll^l2,m21^ !« 0) 

fprintf(stden,*'Subioutine setvtn setind "); 
fprintffstdeir/retunies value equal to %d.W\ itst); 
retum(itst); 

} 

dusq» arsd[ksv].dusq; 
for ( k = kvOhO; k; k- > 
( 

ktrap = mvOhO(kI; tuOO * arsd[ksp],uuvflkirop]; 
tull = arsd[ksv].uuvf[ml ipamp]]; tmpu = toll - tuOO; 
dimp = (- wxy - wuv • dusq[mll[ktmp]]) * tznpu * tmpu; 
twll = wmn * dv2[ktmpj * dh2[kmip] * exp(dtmp); 
ml2 - arsdf ksv] . uuvf[m 1 2[krmp]] ; tznpu • nil2 - tuOO; 
dtmp e (. wxy - wuv * dusq[ml2|)ctmp]]) * tmpu ♦ tmpu; 
twl2 = wmn * dv2[ktmp] * dhl [lamp] * exp(dtmp); 
tu21 - arsd[ksv].uuvf[m21[ktmp]]; tmpu = tu21 - tuOO; 
dtmp - (- wxy - wuv * dusq[m21 Pomp}]) * tmpu * tmpu; 
tw21 » wmn * dvl[ktmp] * dh2[krmp) * exp(dtmp); 
tu22 a arsd[ksv].uuvflm22[kttnp]]; tmpu = tu22 - tuOO; 
dtmp = (- wxy - wuv * dusq[m22[ktmp]]) • tmpu * tmpu; 
tw22 = wmn * dvl[ktmp] • dhl [lamp] * exp(dtmp); 
if ( (hvOhOflctmp] < one) I! <hvOhO[ktrap] > nhf) 
^11 (wOhO[ktmpJ <onc) II (vvOhO[ktmp) > nvf) ) 

twl 1 - wmn * dv2(ktmp] * dh2(ktmp]; 
tw 1 2 - wmn * dv2[ktmp] * dh I [ktmp]; 
tv/21 = wmn ♦ dvl[kanp] • dh2[krmp]; 
^ tw22 - wmn* dvl [lamp] * dh I [ktmp]; 

temp = 0.0; tmpu « 0.0; 

wllfktmp] = twll; iemp+a twll; tmpu +*= ml 1 * twll; 
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